24 lines
382 B
ObjectPascal
24 lines
382 B
ObjectPascal
program leapyear(output);
|
|
|
|
var
|
|
y: integer;
|
|
|
|
function isleap(y: integer): boolean;
|
|
var
|
|
res: boolean;
|
|
begin
|
|
res := false;
|
|
if (y mod 4 = 0) and (y mod 100 <> 0) then
|
|
res := true;
|
|
if (y mod 400 = 0) then
|
|
res := true;
|
|
isleap := res;
|
|
end;
|
|
|
|
begin
|
|
for y := 1750 to 2022 do
|
|
if isleap(y) then
|
|
write(y: 5);
|
|
writeln;
|
|
(* readln; *)
|
|
end.
|