Требуется определить, является ли данный год високосным. (напомним, что год является високосным, если его номер кратен 4, но не кратен 100, а также если он кратен 400.) примеры входные данные 2007 выходные данные no входные данные 2000 выходные данные yes
var
n:integer;
begin
assign (input,'input.txt');
assign(output,'output.txt');
reset(input);
rewrite(output);
readln(n);
if ((n mod 4)=0) and ((n mod 100)<>0) or ((n mod 400)=0) then
writeln('YES')
else
writeln('NO');
end.