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

Программа на паскале:const e=0.0001;var a,s,f:real; n:integer;begina:=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.