9. Напишите программу вычисления выражения s = 1! + 2! + 3! + ... + n!. Здесь n! — факториал числа n. n! = 1 · 2 · ... · (n − 1) · n. Используйте функцию вычисления факториала.

Для каждого числа от 1 до n вычислим факториал отдельной функцией и прибавим его к сумме.

program SumFactorials;

var
  n, i, s: integer;

function Factorial(k: integer): integer;
var
  j, f: integer;
begin
  f := 1;
  for j := 1 to k do
    f := f * j;
  Factorial := f;
end;

begin
  readln(n);
  s := 0;

  for i := 1 to n do
    s := s + Factorial(i);

  writeln(s);
end.

Например, при n = 3: s = 1! + 2! + 3! = 1 + 2 + 6 = 9.

Ответ: программа вычисляет сумму факториалов от 1! до n!.