Вычислить сумму 1! + 2! + 3! + ... + n! (значение n вводится с клавиатуры; 1 < n ≤ 10). Решать через While или Repeat

program zz1;

var n, m, i:integer; / / задаем переменные целого типа

function fact (x:integer) : integer;

var v, p:integer;

begin

p:=1;

for v:=1 to x do

begin

p:=p*v;

end;

fact:=p;

end;

begin

write (' введите число n '); / / вводим число от 1 до 10

read (n);

i:=1; / / задаем начальное значение для переменной цикла

while i < = n do

begin

m:=m + fact (i); / / вычисляем сумму с использованием функции вычисления факториала

i:=i+1; / / увеличиваем переменную цикла

end;

write (' Результат = ', m); / / выводим ответ

end.