Дан числовой ряд

[Санек-22рус]

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

[Stilet]

Если не ошибаюсь:

n:=1; a:=1; f:=exp(n*ln(n));  q:=0; w:=a/f;
while e<abs(q-w) do begin
 inc(n);
 a:=-a;
 q:=f;
 f:=exp(n*ln(n));
 w:=w+a/f;
end;

Выводим w;
f,q,w - Double
n,a - integer;