programma pasqua

program pasqua;
var x,a,b,c,d,e,f,g,h,i,j,k,l,m:integer;
begin
write('AAAA:');readln(x);
a:=x mod 19;
b:=x div 100;
c:=x mod 100;
d:=b div 4;
e:=b mod 4;
f:=(b+8) div 25;
g:=(b-f+1) div 3;
h:=(19*a+b-d-g+15) mod 30;
i:=c div 4;
j:=c mod 4;
k:=(32+2*e+2*i-h-j) mod 7;
l:=(a+11*h+22*k) div 451;
m:=(h+k-7*1+114);
write('il giorno ' ,m mod 31+1);
if (m div 31=3) then write('marzo') else write('aprile');
writeln(' del ',x,' Š pasqua.');
end.