请解答PASCAL题

来源：百度知道 编辑：UC知道 时间：2024/05/17 22:42:33
计算1901年2099年之间的某月某日是星期几。

program YMDToW;
var
y, m, d, w: Integer;
begin
Write('year: '); Readln(y);
Write('month: '); Readln(m);
Write('day: '); Readln(d);
if m < 3 then
begin
m := m + 12;
y := y - 1;
end;
w := y + y div 4 + y div 400 - y div 50 +
26 * (m + 1) div 10 + d - 1;
Writeln('Day of week: ', w mod 7);
end