Составить программу для...

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