var a:longint; begin read(a); if a mod 3=0 then write('yes') else write('no'); end. /************************************************************** Problem: 1633 User: admin Language: Pascal Result: Wrong Answer ****************************************************************/