Дано действительное положительное число е. Методом хорд вычислить с точностью е корень уравнения f(x)=0 (ниже, следом за уравнением f(x)=0, дополнительно задан отрезок, содержащий корень) — Pascal(Паскаль)

x*x-1.3*ln(x+0.5)-2.8x+1.15=0, [2.1,2.5]

uses crt;
function f(x:extended):extended;
begin
f:=x*x-1.3*ln(x+0.5)-2.8*x+1.15;
end;
var xn,xk,p,e:extended;
begin
clrscr;
repeat
write('Введите точность вычислений e=');
readln(e);
until (e>0)and(e<0.1);
xn:=2.5;
xk:=3.1;
repeat
p:=(f(xk)*xn-f(xn)*xk)/(f(xk)-f(xn));
if abs(f(p))<=e then
 begin
  writeln('x=',p:0:5,'  y=',f(p):0:5);
  readln;
  exit;
 end;
if f(xn)*f(xk)>0 then xn:=p else xk:=p;
until abs((f(xk)*xn-f(xn)*xk)/f(xk)-f(xn)-p)<=e;
writeln('x=',p:0:5,'  y=',f(p):0:5);
readln
end.