Дано целое число N. Отыскать значение выражения 1+2!+3!+...+N!,итог вывести как действительное

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 lt; N then write(s, + ) else write(s, = );
end;
writeln(s1)
end.