Напишите программку вычисления выражения с факториалами

program z7;
var res, i, n:integer;
function fac(n:integer): integer;
var p, i: integer;
begin
p:=1;
for i:=2 to n do
p:=p*i;
fac:=p;
end;

BEGIN
res:=0;
write (Введите n );
readln (n);
for i:=1 to n do res := res + fac(i);
writeln (Сумма факториалов одинакова , res);
END