Написать программу для вычисления выражения: s=1!+2!+3!+...+15!

program pr1;
const n=8;
function factorial(n:integer):integer;
begin
if (n<=1) then factorial:=1
else factorial:=n*factorial(n-1);
end;
begin
WriteLn('n!=',factorial(n));
end.