Programación TP ¿Qué día es hoy?

var y, m, d, i, s, z, er: longint

begin

readln(y, m, d); p>

comenzar

readln(y, m, d);

p>

para i：=1980 a y-1 hacer

si (i mod 4=0) y (i mod 100lt;gt;0) o (i mod 400=0) entonces s :=s 366

else s:=s 365;

si (y mod 4=0) y (y mod 100lt;gt;0) o (y mod 400=0 ) entonces er:=29

else er:=28;

caso m de

1: z:=d;

2: z: = 31 d

3: z: = er; 31 d;

4: z: = er 62 d

5: z :=er 92 d;

6: z:=er 123 d; ;

7: z:=er 153 d;

8: z:= er 184 d

9: z: = er 215 d

10: z: = er 245 d;

11: z: = er 276 d;

12: z:=er 306 d;

end;

s:=s z;

writeln(s mod 7 1);

end.

Esto Es un método estúpido.