¿Cómo escribir un almanaque en pascal?

Calendario del programa;

Usa crt

Variables y, m, d, w, c, y2, m2: entero largo;

I, j, k: entero largo ;

Inicio

clrscr

Writeln('Ingrese el año y el mes, ingrese 0 0 para finalizar.'); readln( y, m);

Mientras (y lt; gt0) y (m lt gt0) comencemos

writeln(y, 'year', m, 'el calendario del mes es de la siguiente manera: ');

y2:= y;

m2:= m;

Si m lt3 entonces comienza m:= m 12; = y- 1; fin;

c:= y div 100;

y:= y mod 100;

d:= 1;

w:=((c div 4)-(2 * c) y (y div 4) (26 *(m 1)div 10) d-1)mod 7;

Si w lt0 entonces w：= 7-ABS(w);

si(m2 = 1)o(m2 = 3)o(m2 = 5)o(m2 = 7)o(m2 = 8) o(m2 = 10)o(m2 = 12)

Entonces d: = 31

si no (m2 lt; gt2) entonces d: = 30

<; p>Si m2=2, entonces

si ((y2 mod 4=0) y (y2 mod 100 lt; gt0)) o (y2 mod 400=0)

d :=29 En caso contrario d: = 28;

writeln(w, ' ', d

writeln('Domingo Lunes Martes Miércoles Jueves Sábado');

Para i:=1 a w do

Escribe (': 5);

Para j:=1 a d do start

Escribe ( j: 5);

Si (j w) mod 7=0 entonces writeln

Fin;

writeln

readkey

readln(y, m);

Fin;

Fin.