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.