Используем функцию нахождения факториала, т.к подаем на вход и получаем результат

program factorial;

uses wincrt;

var sum,n,j: integer;

function fact (a: integer): integer;

var i,d: integer;

begin

d:=1;

for i:=1 to a do

d:=d*i;

fact:=d;

end;

begin

sum:=0;

readln(n);

for j:=1 to n do

sum:=sum+fact(j);

writeln(sum);

end.