[Grunch]

Пусть F(n:integer):real - функция возвращающая значение n-го члена ряда

Код:

sum:=0;
n:=1;
eps:=0.00001;
repeat
  sum:=sum+F(n);
  inc(n);
until F(n)<eps;

Примерно как-то так, не тестил.