program znanija;
var
x: real;
begin
readln(x);
if x>0 then
writeln('x - положительное число');
if x<0 then
writeln('x - отрицательное число');
if x=0 then
writeln('x = 0');
end.
program znanija;
var
x: real;
begin
readln(x);
if x>0 then
writeln('x - положительное число');
if x<0 then
writeln('x - отрицательное число');
if x=0 then
writeln('x = 0');
end.