Напишите программу, которая запрашивает целое число и определяет, является оно положительным, отрицательным или нулем.
var n:integer;
begin
write('n=');
read(n);
if (n>0) then write ('n>0');
if (n
if (n=0) then write ('n=0');
end.