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

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