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

[bobzofly]

Не могу решить(



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

[Mad_Cat]

function power(a,b:real):real;
begin
{a^b}
power:=exp(b*ln(a));
end;
var S,n,e:real;
k:integer;
begin
s:=1;
e:=0.0005;
k:=1;
readln(n);
repeat
if odd(k) then
s:=s-power((n/(K+1)/(k+2)/(k+3)),2*k)
else  s:=s+power((n/(K+1)/(k+2)/(k+3)),2*k);
inc(k)
until abs (power((n/(K+1)/(k+2)/(k+3)),2*k))<e;
writeln(s);
end.

3
0.984375