Програмиа паскаль.Написать программу которая будет считать факториал,а затем сумму факториалов (все в одной программе).Желательно как можно проще составить.

Предыдущий
вопрос Следующий
вопрос

program FactorialSum;

function Factorial(num: integer): integer;
var
i, fact: integer;
begin
fact := 1;
for i := 1 to num do
fact := fact * i;
Factorial := fact;
end;

var
n, i, sum: integer;
begin
sum := 0;

write('Enter a number: ');
readln(n);

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

writeln('Factorial sum: ', sum);

end.