посмотрите, пожалуста, что у меня не работает

[Grief]

Уточните корень уравнения ех – 10х = 0 на отрезке [a,b] методом касательных:

if (fu1((a+b)/2)>0) and (fu2(a+b)>0) then x=b
if (fu1((a+b)/2)<0) and (fu2(a+b)<0) then x=a
While t<x-x1
x1=x
x=x-fu(x)/fu1(x)
Wend

a,b - координаты отрезка, t - точность вычислений, fu() - уравнение, fu1() - первая производная от уравнения, fu2() - вторая производная от уравнения, x - корень уравнения, x1 - вспомогательная переменная.

[maladoy]

if (fu1((a+b)/2)>0) and (fu2(a+b)>0) then x=b;
if (fu1((a+b)/2)<0) and (fu2(a+b)<0) then x=a;
While t<x-x1 do begin
x1=x;
x=x-fu(x)/fu1(x);
end;

[Grief]

спасибо большоя!!!!!!!