Составить программу для вычисления суммы ряда 1/1!+ 1/2! +.. .+Аа

var

  n, i, fact:integer;

  summ:real;

begin

  write('n = '); readln(n);

  fact := 1;

  summ := 0;

  for i := 1 to n do

  begin

    fact := fact * i;

    summ := summ + 1 / fact;

  end;

  writeln('Сумма ряда равна ', summ);

end.