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

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