Требуется определить, является ли данный год високосным. (Напомним, что год является високосным, если его номер кратен 4, но не кратен 100, а также если он кратен 400.) Примеры Входные данные 2007 Выходные данные NO Входные данные 2000 Выходные данные YES

program zz1;

var y: integer; / / задаем переменную целого типа

begin

write (' введите год '); / / вводим с клавиатуры номер года, который будем проверять

read (y);

if (y mod 4 0) or (y mod 100 = 0) and (y mod 400 0) / / проверяем, если год не соответствует условию высокосного года, то

then

writeln ('NO') / / выводим один ответ

else

writeln ('YES'); / / иначе, выводим другой ответ

end.