Составить программу вычисления корня с погрешностью ε=0,0001 методом половинного деления для ф-ии y=x^2+ln(x)-5 на интервале [1;4] — Pascal(Паскаль)

{$n+}
Uses Crt;
Function f(x: Double): Double;
Begin
f := 1 / (Exp(x * Ln(2))) - 10 + 0.5*Sqr(x)
End;
Var
x, Eps, a, b, c: Double;
n: Integer;
begin
ClrScr;
Writeln('Введите значения a и b'); Read(a, b);
WriteLn('Введите точность Eps'); Read(Eps);
n := 0;
Repeat
c := (a + b) / 2;
If (f(a) * f(c)) < 0 Then b := c
Else a := c;
Inc(n)
Until (b - a) <= Eps;
x := (a + b) / 2;
WriteLn('Корень равен x=', x:10:7);
WriteLn('Количество делений = ',n);
ReadKey
end.