Наберите программу, которая определяет, является ли введённое число положительным. выполнить программу при x=5, x=-7, x=0

Pascal

program checker2;

var a:integer;

begin

writeln ('Введите число') ;

readln (a) ;

if a>0 then begin

writeln ('Число "', a,'" положительное') ;

end;

if a<0 then begin

writeln ('Число "', a,'" отрицательное') ;

end;

if a=0 then begin

writeln ('Число "', a,'" - нуль.') ;

end;

readln;

end.

Basic

input A

if A>0 then B="положительное" else B="не положительное"

print A; B