Дано целое число N. Найти значение выражения 1+2!+3!+...+N!,результат вывести как действительное число. (N! = 1·2·3·…·N

program sum;var N: integer;s, s1: real;beginwrite(\'Введите число N: \');readln(N);s:= 1;s1:= 0;for i: integer:= 1 to N do begins:= s * i; //вычисляется факториал числа is1:= s1 + s; //вычисляется сумма факториалов if i < N then write(s, \' + \' ) else write(s, \' = \' );end;writeln(s1)end.