Требуется определить, является ли данный год високосным. (Напомним, что год является високосным, если его номер кратен 4, но не кратен 100, а также если он кратен 400.)
Входные данные
Вводится единственное число — номер года (целое, положительное, не превышает 30000).
Выходные данные
Требуется вывести слово YES, если год является високосным и NO — в противном случае.
Исходный код на языке Pascal
var
a: integer;
begin
read(a);
if (a mod 4 = 0) and (a mod 100 <> 0) or (a mod 400 = 0) then
writeln('YES') else
writeln('NO');
end.
