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

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