Решение

Тема: логические операции and/or, условный оператор
Сложность: простая

var n:integer;
begin
  read(n);
  if ((n mod 4)=0) and ((n mod 100)<>0) or ((n mod 400)=0) then
    writeln('Yes')
  else
    writeln('No');
end.