[Pascal] Как записать выражение?

[IvaN9900]

Есть элементарная задача: Вычислить приближенно значение бесконечной суммы с точностью до 0,0005:

Значение n и точность расчетов ввести как константы. Само выражение:Новый точечный рисунок.bmp
сам придумал только вот этот бред(он даже не закончен и не работает):

program qwerty;
Uses crt;
Const
N=2;
E=0.0005;
var
k, i, s: real;
BEGIN
k:=1;
Repeat
begin
  begin
  s:=(exp(ln(-1)*k)*(exp(ln(N/((k+1)*(k+2)*(k+3))))*2*k));
  Begin
  k:=k+1;
  end;
  end;
  end;
 until S=E;
writeln(S);
end.

[DiemonStar]

S := 1; i:=1; D :=0;
while (I < k) and (D>0.0005)
  begin
     D := exp(ln(n/((i+1)*(i+2)*(i+3)))*2k);
     if i mod 2 = 0 then
       S := S + D
      else
       S := S - D;
  end;

[IvaN9900]

что-то не понимаю как это встроить в мою програму. вроде должно быть вместо

Repeat
begin
  begin
  s:=(exp(ln(-1)*k)*(exp(ln(N/((k+1)*(k+2)*(k+3))))*2*k));
  Begin
  k:=k+1;
  end;
  end;
  end;
 until S=E;

, но как все это устроить.. можно повторить то же самое, но с моими переменными?