var a:longint; begin read(a); if (a>1) and (a<100) then write('yes'); end. /************************************************************** Problem: 1641 User: admin Language: Pascal Result: Wrong Answer ****************************************************************/