program zada4a_6; {$APPTYPE CONSOLE} var a:real; begin write('a=');readln(a); if a>0 then write('a>0'); if a<0 then write('a<0'); if a=0 then write('a=0'); readln; end.