21 lines
365 B
Text
21 lines
365 B
Text
var isleap, year;
|
|
|
|
procedure checkifleap;
|
|
begin
|
|
isleap := 0;
|
|
if (year / 4) * 4 = year then
|
|
begin
|
|
if year - (year / 100) * 100 <> 0 then isleap := 1;
|
|
if year - (year / 400) * 400 = 0 then isleap := 1
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
year := 1759;
|
|
while year <= 2022 do
|
|
begin
|
|
call checkifleap;
|
|
if isleap = 1 then ! year;
|
|
year := year + 1
|
|
end
|
|
end.
|