Написать программу ** паскале: определить является ли год високосном

Question

Написать программу на паскале: определить является ли год високосном

Answer 1

var
a: integer;
begin
readln(a);
if(a mod 4 = 0) and (a mod 100 <> 0) or (a mod 400 = 0) then
writeln('Год високосный')
else
writeln('Год не високосный');
end.