回帖:var
n:integer;
begin
readln(n);
if n mod 4 0 then
begin
writeln('No!');
exit;
end
else
begin
if n mod 1000 then
begin
writeln('Yes!');
exit;
end
else
begin
if n mod 400=0 then writeln('Yes!')
else writeln('No!');
end;
end;
end.

