var a,b,c,d:longint; begin read(a); if (a mod 100=a) and (a mod 10<>a) then if a mod 2=0 then write('Yes') else write('No') else write('No'); end. /************************************************************** Problem: 1656 User: admin Language: Pascal Result: Wrong Answer ****************************************************************/