Вычислить предел последовательности с точностью

[Anastasia631]

Помогите пожалуйста написать программу.
Задание.
Вычислить предел последовательности an с точностью 0.5*10^-6, если значения a0,x вводятся. an считать по правилу:an=x+cos(1-a(n-1)^3)/4^n.

[newerow1989]

const e=0.5e-6;
var x,an,an_1:real;
    zn:integer;
begin
   Write('a0 = '); Readln(an);
   Write('x  = '); Readln(x);
   zn:=1;
   Repeat
      an_1:=an;
      zn:=zn*4;
      an:=x+Cos(1-an_1*an_1*an_1)/zn;
      Writeln(an:5:8);
   Until Abs(an_1-an)<e;
   Writeln(an:5:8);
   Readln;
end.