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

Здравствуйте. Читаю самоучитель, в процессе появились задачи, которые я так и не смог написать. Прошу помочь с решением. Дан числовой ряд и малая величина . Найти сумму ряда с точностью , общий член которого задан формулой:
1 ответ

Var i:integer;
    e,s,pr,a:real;
Function F(n:integer):real;
Var fc:real;
    i:byte;
Begin
    fc:=1;
    For i:=1 to n do
     fc:=fc*i;
    F:=fc;
End;
Begin
    write('Введите e: ');readln(e);
    s:=0;i:=0;pr:=1;
    Repeat
     inc(i);
     pr:=pr*3;
     a:=(pr*f(i))/f(2*i);
     s:=s+a;
    Until a<=e;
    writeln('S = ',s:0:2);
End.