Переведите пожалуйстав Паскаль задачу:алгвещ Хначввод Хесли Х<0 то вывод "отрицательное число"иначе вывод "положительное число"кон

var x:real;
begin
write('x = ');
readln(x);
if x<0
 then writeln('отрицательное число')
 else writeln('положительное число');
end.

Пример:
x = -1.8
отрицательное число