Dze je subor www.TrSek.com/zadania/kalendar2.pas{ KALENDAR2.PAS Copyright (c) (R)kl }
{ Zostavte program, ktorý bude pre zadaný rok zisťovať, ktorý }
{ najbližšie vyšší rok bude zaèínať tým istým dòom v týždni. }
{ }
{ Datum:16.03.2005 http://www.trsek.com }
program kalendar2;
uses crt;
var year,y1,i,n,s:integer;
function prestupny(rok:integer):integer;
begin
if (rok mod 100<>0) and (rok mod 4=0) or (rok mod 400=0)
then Prestupny:=2
else prestupny:=1;
end;
begin
Write('Na kolky rok mas kalendar ? ');readln(year);
Write('Kolko opakovani ? ');readln(n);
s:=0; y1:=year;
for i:=1 to n do
begin
repeat
y1:=y1+1; s:=s+prestupny(y1);
until (s mod 7=0) and (prestupny(year)=prestupny(y1));
writeln(i,'. rok = ',y1)
end;
readln;
end.