метод касательных

[Meri1992]

помогите пожалуйста разобраться в чем моя ошибка,я написала программу (метод касательных) но препод сказал что она не правильная. она должна искать на отрезки [-5,6] 3 корня, а она ищет только один, и я не как не могу понять почему. вот программа:

program metod_kasatel;

uses Crt;

var

xn,xn1,a,b,c,mx,y0,x0: real;

function f1(x1: Real): Real; {основная функция}

begin

f1:= x1*x1*x1*(-0.5)-0.05*x1*x1+0.8*x1+0.6;

end;

function f2(x4:Real): Real; {производная от основной функции}

begin

f2:= (-1.5)*x4*x4-0.1*x4+0.8;

end;

begin {начало основной программы}

Clrscr;

a:=-5;b:=6;c:=0.00000001;

Writeln (' от A=',a,' до B=',b); {вывод на экран}

Writeln (' погрешность=',c);

Readln;

xn:=b;

xn1:= f1(xn);

y0:=f2(b);

while ABS (y0)<a-b do {проверка по точности вычисления корня}

begin {цикл}

xn:=xn1;

xn1:=f1(xn);

y0:= f2(xn1);

{печать промежуточного результата}

Writeln ('xn=',xn,' xn+1=',xn1,' f(xn+1)=',y0);

Readln;

end; {конец запуска цикла}

Writeln ('конечные значения'); {полученный результат}

Writeln (' xn+1=',xn1,' f(xn+1)=',y0);

Readln;

end. {конец основной программы}