[lmikle]

тебе надо написать функцию вычисления i-го члена ряда. Дальше в цикле While a(i) > E Do выичисляешь сумму.

Код:

function a(n : Integer) : Extended;
begin
  // вычисление i-го члена ряда - сам напишешь, там просто.
end;

function Ryad(E : Extended) : Extended;
var
  I : Integer;
begin
  Result := 0;
  I := 1;
  While a(I) > E Do
    begin
      Result := Result + a(I);
      Inc(I);
    end;
end;