Помогите пожалуйста, нужно составить программу в Паскале.
~~~~~~~~~~~~~
Вычислить S=1!+2!+3!+…+n! используя подпрограмму-функцию вычисления факториала.

var

n,x,a,s:longint;

begin

read(n);

a:=1;

for x:=1 to n do

begin

a:=a*x;

s:=s+a;

end;

writeln(a);

end.

Программа будет работать для n<=12, если надо больше, то меняйте тип переменных a и s на int64 / uint64