Рекуррентная формула. Паскаль

[Wild_VSU]

Вобщем такая задача... программа написана, но как найти саму рекуррентную формулу под это выражение, помогите

program Rek_form;

{$APPTYPE CONSOLE}

uses
SysUtils;

Var x,Eps,Sum,a:real;
i,N:integer; x2:real;
begin
repeat
write('введите N>0,->'); //введите числ0
readln(N);
until n>0;
write('x->'); readln(x);
write ('Esp->'); readln(Eps);
Sum:=0; x2:=sqr(x);
a:=x;
for i:= 1 to N do begin
Sum:=Sum+a;
a:= // рекуррентная формула.
end;
writeln('Sum1=',sum :8:5);readln;
// вывод суммы в фомате всего 8ми цифр и 5ти цифр после запятой
Sum:=x; N:=1; a:=x;
while abs(a)>Eps do begin
a:= // рекуррентная формула.
Sum:=Sum+a;
N:=N+1;
end;
writeln('Sum2=',sum:8:5,'N=',N);readln;
Eps:=Eps/10;
while abs(a)>Eps do begin
a:= // рекуррентная формула.
Sum:=Sum+a;
N:=N+1;
end;
writeln('Sum3=',Sum,'N=',N);readln;
writeln('Ln(x+Sqrt(x*x+1)=',Sum);
readln;
end.

[Wild_VSU]

С языком немного ошибся, язык-Делфи , как найти рекуррентную формулу?)