помогите программка не работает

Program ex_4;

var b,a0,a1,E:real;

i:integer;

Begin

writeln('вводим E,b');

readln(E,b);

i:=0;

a0:=0;

a1:=b;

while abs(a1-a0)>=E do

begin

a0:=a1;

a1:=((2*a0+b)/sqr(a0))/3;

i:=succ(i);

end;

writeln('x= ',a1,'i= ',i);

End. Для
заданного b получить a

c
точностью E=0,0001.Вычесления производить по следующему алгоритму

,

, i=0,1,2,3…Вычисления
прекратить при выполнении условия |

|