Составьте программу Паскаль

Question

Дано целое положительное число, соответствующее номеру года. Напишите программу, позволяющую определить является ли введённый год высокосным. Год является високосным, если его номер кратен 4, но из лет кратных 100, високосными считаются кратные 400.(Например, 1700,1800,1900-не високосные, а 2000-високосный. )

Светлана Яковлева · Accepted Answer

var a:integer; 
begin 
readln(a); 
writeln('Leap year: ',(a mod 400=0)or(a mod 4=0)and(a mod 100<> 0)); 
readln 
end.