Question

Составить программу является ли число a положит lazarus

Answer 1

Var
  a: real;
begin
  Read(a);
  if (a > 0) then
    Writeln('Число положительное')
  else
    Writeln('Число не положительное')
end.