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

program summa;var summ:real; n,i:integer;function fact(a:integer):integer; begin if a=1 then fact:=1 else fact:=fact(a-1)*a; end;begin readln(n); summ:=0; for i:=1 to n do summ:=summ+(1/fact(i)); writeln('Summa n pervih chlenov posledovatelnosti ravna ',summ);end.Писал на pascal ABC