var a:longint; begin read(a); if a>0 then write('+') else write('-'); end. /************************************************************** Problem: 1645 User: admin Language: Pascal Result: Wrong Answer ****************************************************************/