Задача: Подсчитать сумму 1!+ 2! + 3! +...N! Где, например, 5! --факториал числа 5 и 5! = 1*2*3*4*5 Формат ввода: На вход подается два натуральное число n не превосходящих 10. Формат вывода: Целое число - результат вычисления формулы. Пример входных данных 5 Пример выходных данных 153 Пояснение: Отсутствует. На паскале

program hello;

var i,x,y,y1:integer;

begin

y:=1;

y1:=0;

write('Введи число ');

read(x);

while x>=1 do

begin

y:=1;

for i:=1 to x do

begin

y:=y*i;

end;

y1:=y1+y;

x:=x-1;

end;

write(y1:2);

readln;

end.