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

program sum;

var N: integer;

s, s1: real;

begin

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

readln (N);

s: = 1;

s1: = 0;

for i: integer: = 1 to N do

begin

s: = s * i; / /вычисляется факториал числа i

s1: = s1 + s; / /вычисляется сумма факториалов

if i < N then write (s, ' + ') else write (s, ' = ');

end;

writeln (s1)

end.