var a,b,c,d,e,f,g:longint; begin read(a); if a>0 then write(a,'>0') else if a=0 then write(a,'=0') else write(a,'<0'); end. /************************************************************** Problem: 1638 User: admin Language: Pascal Result: Wrong Answer ****************************************************************/