Напишите программу вычисления выражения: s=1! +2! +3! ++n! здесь n! - факториал числа n. n! =1×2××(n-1)× n.используйте функцию вычисления факториала..​

var

   n : integer;

   S : decimal;

function fac(n : integer) : decimal;

begin

   result := 1;

   for var i := 1 to n do result := result * i;

end;

begin

   write('введите n = ');

   readln(n);

   for var i := 1 to n do S := S+fac(i);

   writeln('S=', S);

end.