Подсчет циклов в Паскале, найти корни уравнения методом половинного деления

[Anastasia_Right]

Здравсвуйте всем,
Я паскаль изучала довольно давно, но вот теперь срочно нужно решить задачку.
Точнее - нужно найти корни уравнения методом половинного деления.
Саму программу я написала:

Program one;
uses crt;
function F(x:real):real;
begin
F:=x*x-sqrt(x)-1;
end;
var a,b,c,x,e:real;
begin
clrscr;
writeln('Find the root if the equationя F:=x*x-sqrt(x)-1=0 on the interval [0;1] up 0.00001');
a:=0;
b:=1;
e:=0.00001;
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:6);
readln
end.

Вот, все вроде бы считает, но мне бы еще нужно подсчитать количество раз, которе программе приходится повторять это деление до заданной точности.
Подскажите пожалуйста, как это сделать?
Спасибо заранее.

[holloloh]

1) лучше 2*e, так ты наверняка найдешь с заданной точностью
2)просто заводишь переменную n, которая увеличивается с каждым проходом цикла