Задача с использованием рекуррентных соотношений.

[Disel]

Помогите пожалуйста решить задачу с использованием рекуррентных соотношений. Заранее благодарен.

[Sazary]

Вроде работает.. Проверьте..

uses crt;
var
x,x0,Z : real;
i,n : integer;

function pow(a : real; st : integer) : real;
  begin
  if a>0 then pow := exp(st*ln(a))
  else if a=0 then pow := 0
  else
    begin
     if odd(st) then pow := -exp(st*ln(abs(a)))
     else pow := exp(st*ln(abs(a)));
    end;
  end;

begin
clrscr;
write('Enter n: ');
readln(n);
write('Enter x0: ');
readln(x0);
x := x0;
Z := sqrt(abs(x));
for i:=n to 10 do
  begin
  x := pow(x-1,n)/(2*n+1);
  Z := Z + sqrt(abs(x));
  end;
writeln('Z= ',Z:7:4);
readln;
end.

[Disel]

Sazary большое спасибо!!!