84. [30. april 2000] Datum Vaskrsa

Hristos Vaskrse! Znate li kako da izračunate datum kada pada Vaskrs za bilo koju godinu? Algoritam koji sledi svojevremeno je na Sezam poslao Dragiša Krsmanović, a ako se ne bavite algoritmima, preuzmite program koji računa...

program vaskrs;
var god, dan, mes, i, j, k: longint;
begin
   write ('Godina za koju se računa datum Vaskrsa: ');
   readln (god);
   i:=god mod 19;
   j:=god mod 4;
   k:=god mod 7;
   i:=((19*i)+15) mod 30;
   j:=(2*j + 4*k + 6*i +6) mod 7;
   dan:=4+i+j ;
   if dan<=30 then mes:=4 else begin mes:=5; dan:=dan-30 end;
   writeln ('Pravoslavni Vaskrs je po novom kalendaru ', dan, '.', mes, '.', god);
end.