С клавиатуры вводится натуральное число N.
Подсчитать сумму 1!+ 2! + 3! +...N!
Вычисление факториала числа оформить в виде функции
PascalABC
пожалуйста функцией или процедурой

Program n1;var i,n: integer;sum: real;function fact(n: integer): real;var i: integer;p: real;beginp:=1;for i := 2 to n do p:= p*i;fact:=p;end;beginwrite('n=');readln(n);sum:=0;for i:=1 to n do sum:=sum+fact(i);writeln('sum=',sum);end.