Найти корень уравнения методом половинного деления

program mdp;
function f(x: real): real;
begin
f:=cos(x)-sqrt(x);
end;
var
a, b, e, c, x: real;
begin
a:=cos(x);
b:=sqrt(x);
e:=0.0001;
while abs(a-b)>e do
begin
if f(a)*f(c)>0 then
b:=c
else
a:=c;
c:=a-b;
end;
x:=a-b;
writeln ('x=',x:3:3,' f(x)=',f(x):4:4);
end.

uses crt;
const eps=0.00001;
function f(x:real):real;
begin
f:=cos(x)-sqrt(x);
end;
var a,b,x,c:real;
begin
writeln('Найти корень уравнения cos(x)-sqrt(x)=0 на интервале [0;1] при eps=0.00001');
writeln;
writeln('Метод дихотомии:');
a:=0;{интервал корня награфике}
b:=1;
while abs(a-b)>eps do{уточним}
 begin
  c:=(a+b)/2;
  if f(a)*f(c)<=0 then b:=c
  else a:=c;
  x:=(a+b)/2;
 end;
writeln('x=',x:0:5,' f(x)=',f(x):0:5);
end.

uses crt;
const e=0.00001;
function F(x:real):real;
begin
F:=cos(x)-sqrt(x);
end;
var a,b,c,x:real;
begin
a:=0.0;
b:=1.0;
writeln('Решение уравнения cos(x)-sqrt(x)=0');
writeln('на интервале [',a:0:1,';',b:0:1,'] с погрешностью ',e:0:5);
repeat
 c:=(a+b)/2;
 if F(a)*F(c)<=0 then b:=c
 else a:=c;
 x:=(b+a)/2;
until abs(a-b)<e;
writeln('x=',x:0:5,' F(x)=',F(x):0:6);
end.