Написать программу для вычисления выражения: 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.