Дано натуральное число N. Разработать схему алгоритма для вычисления суммы ряда: S=1!+2!+3!+…+N! (N>1)
Операцию вычисления факториала использовать нельзя!
Протестировать алгоритм для N=3 и N=5
писать на Pascal'e

var  f, s: longint;  n, i: byte;begin  write('N = '); readln(n);  f:= 1;  for i:=2 to n do    begin    f:= f * I;    s:=s+f;    end;  writeln('Summ = ', s);end.