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

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