An integer N is given. Find the value of the expression 1 + 2! +3! + … + N!,

An integer N is given. Find the value of the expression 1 + 2! +3! + … + N!, Output the result as a real number. (N! = 1 · 2 · 3 ·… · N – N factorial) pascal

program sum;
var N: integer;
s, s1: real;
begin
write (‘Enter number N:’);
readln (N);
s: = 1;
s1: = 0;
for i: integer: = 1 to N do
begin
s: = s * i; // calculates the factorial of the number i
s1: = s1 + s; // calculate the sum of the factorials
if i <N then write (s, ‘+’) else write (s, ‘=’);
end;
writeln (s1)
end.