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

Question

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

Answer 1

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

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