Запрограммируйте формулу в Паскале с помощью цикла!

program one_two;
var i, n: integer;
x, drob, summa, factorial, chislitel: real;
begin
write ('n=');
readln (n);
write ('x=');
readln (x);
summa:=0;
factorial:=1;
for i:=1 to n do
begin
factorial:= factorial*(2*i)*(2*i+1);
chislitel:=exp(ln(x)*(2*i+1));
drob:=chislitel / factorial;
summa:=summa+drob;
end;
writeln ('summa = ', summa:0:5);
end.