Напишите программу вывода ** экран фразы “Число положительное”, если введенное число...

Question

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

Answer 1

Var x: Integer;
begin
writeln('Введите число');
readln(x);
if x<0 then<br>writeln('Число ',x,' - отрицательное')
else
if x=0 then
writeln('Число ',x,' - нейтральное')
else
writeln('Число ',x,' - положительное');
end.