usaco 1.1.3.Friday(黑色星期五)

usaco 1.1.3.Friday(黑色星期五)我是pascal看看：var i,n,day,month,year:longint;a:array[1..7]of longint;beginreadln(n);month:=1;year:=1900;for i:=1 to 7 doa[i]:=0;a[6]:=1;day:=6;for i:=2 to 12*n dobegininc(month);if month =13 then begin inc(year);month:=1;end;if month in[1,2,4,6,8,9,11] then day:=day+3;{month in when=the time from when-1 to when}if month in[5,7,10,12] then day:=day+2;if month=3 thenif (year mod 400=0)or((year mod 4=0)and(year mod 1000)) thenday:=day+1else day:=day;if day>7 then day:=day mod 7;inc(a[day]);end;writeln(a[6],' ',a[7],' ',a[1],' ',a[2],' ',a[3],' ',a[4],' ',a[5]);end.