pascal编程:输入年月日,输出此日为星期几用for语句解

program p5_3_5;
var
y,m,d:integer;
y1,m1:integer;
s:integer;
begin
readln(y,m,d);
y1:=y-1+(y-1) div 4-(y-1)div 100+(y-1) div 400;
case m of
1,10:m1:=0;
5:m1:=1;
8:m1:=2;
2,3,11:m1:=3;
6:m1:=4;
9,12:m1:=5;
4,7:m1:=6;
end;
writeln((y1+m1+d) mod 7);
end
给分哦

楼上的程序计算以前的时间如：20080515不对，需要再修正。
还是没做改正，等我有时间编个完美的给你。