Введено число x , если оно больше нуля, то вывести надпись положительно , иначе вывести надпись отрицательно для паскаля

Program qq;
var x: real;
begin
readln (x);
if x>0 then writeln ('положительно')
else writeln ('отрицательно ');
end.