Cоставить программу, которая определяет, является ли число х положительным (условие х>0).
program znanija;
var
x: real;
begin
readln(x);
if x>0 then
writeln('x - положительное число');
if x
writeln('x - отрицательное число');
if x=0 then
writeln('x = 0');
end.
cpacibo