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

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