Помогите ПАСКАЛЬ!! Мне нужно составить программу определяющую являетьли ли число а...

Question

Помогите ПАСКАЛЬ!!
Мне нужно составить программу определяющую являетьли ли число а положительным

Answer 1

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

Answer 2

Program Usloviya;
var a:integer;
begin
readln (a);
if (a>0) then write('Число положительное') ;
end.