Question

Составить программу на Pascal, определяющая, является ли введенное число положительным. Также учесть вопрос с нулем ​

Answer 1

var x:integer;

begin

readln(x);

if x=0 then writeln('Нуль') else

if x>0 then writeln('Положительное') else

writeln('Отрицательное');

end.