Сумма бесконечного ряда

[LittleBob]

Здравствуйте. Задание:
55515.png

Program Lol;
Uses
  CRT;
var
  x,a,s,d,c,eps:real; i,n,k:integer;
begin
writeln('Введите точность:');
write('Eps=');
read(eps);
a:=sqr(pi/6);
s:=a;
d:=1;

n:=2; {Число для факториала}
while abs(a)>=eps do
  begin
    k:=1;
    for i:=1 to n do {Вычисление факториала числа}
      begin
        k:=k*i;
      end;
    n:=n+2;
    
    s:=s+a;
    d:=d+1;
    a:=a/k;
  end;
  
writeln('сумма=',s:8:4);
writeln('число членов ряда=',d:4);
end.

Никак не пойму как это сделать. Подскажите пожалуйста. И еще нужно сделать проверку на сходимость ряда.