Вычисления с факториалом

[Vlt]

Здравствуйте!
Помогите написать код в Паскале
Задача
Дано действительное число х, натуральное число n. Вычислить:

[Arigato]

Тут по накопительной схеме расчет проводить надо. Цикл от 1 до n, на каждой итерации вычисляем очередное значение степени (xi := xi * x) и факториала (f := f * i).

[Vlt]

Сообщение от Arigato

Тут по накопительной схеме расчет проводить надо. Цикл от 1 до n, на каждой итерации вычисляем очередное значение степени (xi := xi * x) и факториала (f := f * i).

У меня немного не получается вот мой код, считает только последнее значение

var i,a,n,x: integer; ot: real;
begin
write('n ');
read(n);
write('x ');
read(x);
a:=1;
if n>0 then
begin
for i:=1 to n do a:=a*i;
ot:=ot+(exp(ln(X) * i))/a;
write(ot);
end;
end.

[Mad_Cat]

var i,n,x: integer; ot,a: real;
begin
write('ВВедите n ');
read(n);
write('ВВедите x ');
read(x);
ot:=0;
a:=1;
for i:=1 to n do begin
a:=a*x/i;
ot:=ot+a;
end;
writeln(ot);
readln;
end.

[Vlt]

Сообщение от Mad_Cat

var i,a,n,x: integer; ot: real;
begin
write('ВВедите n ');
read(n);
write('ВВедите x ');
read(x);
ot:=0;
a:=1;
for i:=1 to n do begin
a:=a*x/i;
ot:=ot+a;
end;
writeln(ot);
readln;
end.

спасибо , немного подкорректирую
var i,n,x: integer; ot,a: real;
begin
write('ВВедите n ');
read(n);
write('ВВедите x ');
read(x);
ot:=0;
a:=1;
for i:=1 to n do begin
a:=a*x/i;
ot:=ot+a;
end;
writeln(ot);
readln;
end.