Сумма ряда.

const
   e=0.0000001;
   x=3;
 
  t, s:real;
  i:integer;
begin
 s:=((1/3)*x) - (((1*4)/(3*6))*exp(ln(x)*2));
 i:=3;
 
 t:=((1*4*(3*i-2))/(3*6*3*i))*exp(ln(x)*i);
 while t >= 0.0000001 do
 begin
  i:=i+1;
  t:=((1*4*(3*i-2))/(3*6*3*i))*exp(ln(x)*i);
 
  if odd(i)then
   s:=s+t
  else
   s:=s-t;
 end;
end.

const
   e=0.000001;
   x=3;
 
var 
  t, s,x2:real;
  i,k:integer;
  
begin
 k:=-1;
 x2:=x;
 s:=((1/3)*x);
 i:=1;
 t:=(1/3);
 while t >= 0.0000001 do
 begin
  i:=i+1;
  x2:=x2*x;
  t:=t*(3*i-2)/(3*i);
  s:=s+k(t*x)
  k:=-k;
 end;
writeln(i,' ',s);
readln;
end.

const
   e=0.000001;
......................
while t >= 0.0000001 do