uses crt;
var x:real;
begin;
clrscr;
writeln('Введите число');
readln(x);
IF x > 0 THEN writeln('положительное число');
if x < 0 then writeln('отрицательное число');
if x=0 then writeln('0 = 0');
end.