Напечатать таблицу значений функции у=ln х-х*х на отрезке [0,5, 1,5] с шагом 0,1 — Pascal(Паскаль)

uses crt;
Var x,xn,xk,dx,y:real;
begin
clrscr;
xn:=0.5;
xk:=1.5;
dx:=0.1;
x:=xn-dx;{отступим на шаг назад, иначе не попадаем точно в хк}
while x<=xk do{пока не перешли через хк}
  begin
   x:=x+dx;{наращиваем х}
   y:=ln(x)-x*x;{считаем}
   writeln('x=',x:4:1,'    y=',y:8:4);{выводим в таблицу}
  end;
readln
end.