Напишите программу вычисления суммы факториалов всех нечетных чисел от 1 до 9 (паскаль)

Var n, i: integer;
function fact(n: integer): integer;
begin
     if n = 1
     then
         fact := 1
     else
         fact := fact(n - 1) * n;
end;

begin
     for i := 1 to 9 do
     if i mod 2 = 1
     then
         writeln(fact(i));
end.