Pascal语言:var a:real;begin readln(a); if (a>0) then writeln('+'); if (a=0) then writeln('0'); if (a<0) then writeln('-'); readln;end.
