Оператор FOR

[Junger]

Помогите написать прогу!!!





Дано целое число N (>0).Используя один цикл, найти сумму 1!+2!+3!+...+N! (выражение N! - N-факториал - обозначает произведение всех целых чисел от 1 до N: N!=1*2*...*N). Чтобы избежать целочисленного переполнения, проводить вычисления с помощью вещественных переменных и вывести результат как вещественное число.

[rus12]

uses crt;
var 
f,n,i:integer;
begin
clrscr;
write('vvedite n=');
f:=1;
for i:= 1 to n do
f:=f*i;
write('f=',f);
readln;
end.

[Mad_Cat]

uses crt;
var 
f,n,i,s:integer;
begin
clrscr;
s:=0;
write('vvedite n=');
f:=1;
for i:= 1 to n do begin
f:=f*i;
s:=s+f;
end;
write('f=',f);
readln;
end.