1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

procedure Ostern;
var Jahr, G, C, X, Z, D, E, N: integer;
begin
Clrscr;
Writeln('Bitte geben sie das Jahr ein, in dem Ostern berechnet werden soll:');readln(Jahr);

 G := Jahr mod 19 + 1;
 C := Jahr div 100 + 1;
 X := 3 * C div 4 - 12;
 Z := (8 * C + 5) div 25 - 5;
 D := 5 * Jahr div 4 - X - 10;
 E := (11 * G + 20 + Z - X) mod 30;

if (E = 25) and (G > 11) or (E = 24) then E := E + 1;
  N := 44 - E;

if N < 21 then N := N + 30;
  N := N + 7 - (D + N) mod 7;
  writeln; writeln;
  write('Ostersonntag im Jahre '+IntToStr(Jahr)+' ist/war am: ');

if N > 31 then begin
  N := N-31;
  writeln(IntToStr(N)+'. April .');
end

else writeln(IntToStr(N)+'. Maerz .'); readln;
end;