Впаскале: 1/1! +1/3! -1/ в общем составлял для отдельного числа факториал: factrl : = 1; for i : = 1 to 5 do begin factrl : = factrl * (i) end; но как автоматизировать процесс, чтобы суммировало факториалы с повышением на 2

Программа для вычисления суммы 1/1!+1/3!+1/5!...+1/(2*n-1)!
var n,i,f:integer; s:real;
begin
readln(n);
s:=1;
f:=1;
for i:=1 to n-1 do
 begin
 f:=f*(2*i)*(2*i+1);
 s:=s+1/f;
 end;
writeln('s = ',s);
end.

Пример:
4
s = 1.175198412698413e+00