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

Question

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

Answer 1

//PascalABC.Net 3.2
begin
if readreal ('Введите x: ')<0 then write ('отрицательное число') else write ('положительное число');<br>end.