Написать программу, которая определяет является ли введённое число положительным

Question

Написать программу, которая определяет является ли введённое число положительным

Answer 1

Program p1;
var x: real;
begin
  WriteLn('Введите число');
  ReadLn(x);
  if x <= 0 then<br>    WriteLn('Число не является положительным.')
  else
    WriteLn('Число является положительным.');
end.