var a:longint; begin read(a); if (a mod 2=0) or (a mod 3=0) then write('Y') else write('N'); end. /************************************************************** Problem: 1673 User: admin Language: Pascal Result: Wrong Answer ****************************************************************/