Значения функции е^x равно сходящейся сумме бесконечного ряда: e^x=1+x/1! +x^2/2! +x^3++x^n/n! + нужно получить рекуррентную формулу для слагаемых. используя цикла while, repeat и for, на

Program series
uses crt;
var
i,n:integer;
b:real;
BEGIN
readln(n);
for i:=0 to n do
begin
b:=b+(exp(ln(n) * i)/fact(i))
end;
writeln(b);//answer

function fact(x:integer):integer;
begin
if x=0 then fact:=1
else fact:=fact(x-1)*x;
end;
END.