Дано целое число n. вычислить 1/1! +1/2! +1/3! ++1/n!

На Паскале:

program MyProgram;
var n,i,fact: integer; sum: real;
begin
sum:=0;
fact:=1;
writeln('Введите число N.');
readln(n);
for i:=1 to n do
begin
fact:=fact*i;
sum:=sum+1/fact;
end;
writeln('Сумма 1/1!+1/2!+1/3!+...+1/N = ',sum);
end.