var n:longint; begin readln(n); if ((n mod 4=0)and(n mod 100<>0))or((n mod 100=0)and(n mod 400=0)) then writeln('yes') else writeln('no'); end. /************************************************************** Problem: 1646 User: admin Language: Pascal Result: Wrong Answer ****************************************************************/