Найти сумму ряда

program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
var i,n:Integer;
    rez,x:Real;
begin
  rez:=0;
  Write('Enter number N = ');Readln(n);
  Write('Enter number X = ');Readln(x);
  for i:=1 to n do
    begin
      rez:=rez+((x/2)+((Exp(x*ln(i)))/3));
    end;
  Write('Answer [',i,'] = ',rez:0:2);
  Readln;
end.

program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
var i,n:Integer;
    k,rez,x:Real;
begin
  k:=3;
  Write('Enter number N = ');Readln(n);
  Write('Enter number X = ');Readln(x);
  rez:=x/2;
  for i:=1 to n do
    begin
      rez:=rez+(((Exp(x*ln(i)))/k));
      k:=k+2;
    end;
  Write('Answer [',n,'] = ',rez:0:2);
  Readln;
end.

var
n,i:integer;
x,a,l:real;
begin
 writeln('введите значение x и кол-во слогаемых n');
 readln(x,n);
 a:=0;
 l:=1;
 for i:=1 to n do
 begin
   if i>1 then
   l:=l*x/(2*i-1)*(2*(i-1)-1)
   else
   l:=x;
   a:=a+l;
 end;
 writeln(a);
end.