Вывод суммы факториалов

[Bekzat]

Дано целое число N(>0). вывести сумму 2+1/(2!)+1/(3!)+...+1/(N!).
Полученное число является приближенным значением константы e=exp(1).
Помогите решить...

[Mad_Cat]

f:=1;s:=2;
for i:=2 to n do
begin 
f:=f*i;
s:=s+1/f;
end;