Найти сумму ряда

[evklid]

помогите решить
Найти сумму ряда с точностью , общий член которого

[evklid]

Помогите только вычислить формулу Аn+1 остальное я сам.

[evklid]

Ребят проверьте пожалуйста.

PHP код:

uses crt;
var n,i:integer;
    s,t,z,h:real;
begin
clrscr;
h:=0.001;
{нулевые значения}
n:=0;
s:=0;{сумма}
t:=1;{член ряда}
while t>h do{пока член ряда больше точности}
 begin
  n:=n+1;{добавляем 1}
  z:=1;{вычисляем приращение обратного факториала}
  for i:=sqr(n-1)+1 to sqr(n) do
  z:=z/i;
  t:=t*2*n*z;{домножаем на 2, на индекс и приращение обратного факториала}
  s:=s+t;{считаем сумму}
 end;
write('S=',s:0:10);
readln
end.