Решение нелинейных уравнений методом половинного деления

uses crt;
function F(x,y:real):real;
begin
F:=(exp(ln(y)*x))+(Ln(x))-(10*x);
end;
var a,b,c,e,y,x:real;
begin
clrscr;
a:=3;{левая граница}
b:=4;{правая граница}
y:=3;
e:=0.000001;{точность}
if F(a,y)*F(b,y)<0 then
  begin
   repeat
   c:=(a+b)/2;
   if F(a,y)*F(c,y)<=0 then b:=c
   else a:=c;
   until b-a<e;
   x:=(a+b)/2;
  end
else writeln('На данном интервале корней нет, либо взят большой интервал.');
writeln('Z(x,y)=',x:0:7);
readln
end.

uses crt;
function F(x,y:real):real;
begin
F:=(exp(ln(y)*x))+(Ln(x))-(10*x);{наша функци¤, 
возведени¤ в степень по формуле надо избегать при возможности, 
поскольку она работает только дл¤ положительных ’}
end;
var a,b,c,e,y,x:real;
begin
clrscr;
a:=3;{лева¤ граница}
b:=4;{права¤ граница}
write('y: '); {Введите y}
 readln(y);
e:=0.000001;{точность}
if F(a,y)*F(b,y)<0 then
  begin
   repeat
   c:=(a+b)/2;
   if F(a,y)*F(c,y)<=0 then b:=c
   else a:=c;
 //  until b-a<e;
  until abs(b-a)<e; 
   x:=(a+b)/2;
  end
else writeln('Ќа данном интервале корней нет, либо вз¤т большой интервал.');
writeln('Z(x,y)=',x:0:7);
readln
end.

function F(x: real): real;
begin
  F := exp(x) + Ln(x) - 10 * x
end;
const e = 1e-6;{точность}
var a, b, c, e, x: real;
begin
  a := 3;{левая граница}
  b := 4;{правая граница}
  if F(a) * F(b) < 0
    then begin
      repeat
        c := (a + b) / 2;
        if F(a) * F(c) <= 0 then b := c else a := c
      until b - a < e;
      x := (a + b) / 2;
      writeln('x = ', x:0:7)
    end
    else writeln('На данном интервале корней нет, либо взят большой интервал.');
  readln
end.