Сума бесконечного ряда

[tadalox]

Люди, помогите пожайлуста

program z1;
const x=1.0;
var e,d,n,s,k,l,j,f:real;
begin
s:=x;
d:=x;
n:=0;
e:=exp(ln(10)*(-8));
while abs(d)>e do begin
n:=n+1;
k:=(4*n+7);
l:=(4*n+6);
j:=(4*n+5);
f:=(4*n+4);
d:=(x*x*x*x*d)/(k*l*j*f);
s:=s+d;

end;
writeln(s);
end.

что тут не правильно?

[Step_UA]

1) Начальные значения при n=0, для S и d = X*X*X/3! (X=1) => X/6
2) Т.к. в начале цикла значение N увеличивается, то переменные f,j,l,k должны принимать значения от 4*n до 4*n+3

... не ошибка, но зачем так "ругаться"

e:=exp(ln(10)*(-8)); { можно записать e:=E-8}