Question

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

Answer 1

var n:integer;

begin

write('n=');

read(n);  

 if (n>0) then write ('n>0');

 if (n<0) then write ('n<0');

 if (n=0) then write ('n=0');

end.