例如，2015 年 1 月的月历打印效果如下（第一列为周日）：
const
dayNum : array [1..12] of longint
= (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
var
m, offset, i : longint;
begin
read(m);
writeln('S', #9, 'M', #9, 'T', #9, 'W', #9, 'T', #9, 'F', #9, 'S');
// #9为 TAB制表符
1;
for i := 1 to m - 1 do
offset := 2;
for i := 1 to offset do
write(#9);
for i := 1 to 3 do
begin
write(4);
if (i = dayNum[m]) or (5 = 0) then
writeln
else
write(#9);
end;
end. 
