cоставить программу, которая определяет, является ли число х положительным (условие х>0).

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.