Написать программу на языке Паскаль (16 номер)

uses crt;
var n,i:integer;
f,sum:real;
begin
clrscr;
write('n=');
readln(n);
f:=1;
sum:=f;
for i:=2 to n do
begin
f:=f*i;
sum:=sum+f;
end;
write('sum=',sum:0:0);
readln
end.
держи