Переведите на язык Delphi

[neomaximus]

Помогите перевести

Заранее СПАСИБО

[alex_fcsm]

function fact(n:integer):integer;
var i:integer;
begin
result:=1;
for i:=2 to n do result:=result*i;
end;
....
sum:=0;
for i:=0 to n do
 sum:=sum+exp(ln(x)*(2*i+1))/fact(2*i+1);
....