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

срочно

Pascal

program checker2;
var a:integer;
begin
writeln('Введите число');
readln(a);
 if agt;0 then begin
 writeln('Число "',a,'" положительное');
 end;
 if alt;0 then begin
 writeln('Число "',a,'" отрицательное');
 end;
 if a=0 then begin
 writeln('Число "',a,'" нуль.');
 end;
readln;
end.

Basic

input A
if Agt;0 then B="положительное" else B="не положительное"
print A; B