Составить программу для вычисления суммы ряда 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