Требуется определить, является ли данный год високосным. (Напомним, что год является високосным, если его номер кратен 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);