1+2/2!+3/4!+4/6!+5/8! ... Вычислить сумму ряда. Вычисления заканчивать при достижении заданной степени точности Е

Программа на паскале:

const e=0.0001;

var a, s, f:real; n:integer;

begin

a:=1; s:=1; n:=0; f:=1;

while abs (a) >e do

begin

n:=n+1;

f:=f * (2*n-1) * (2*n);

a: = (n+1) / f;

s:=s+a

end;

writeln ('s=', s:7:5);

end.