Дано натуральное число 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.