Вычислить сумму ряда с заданной точностью

const e=1e-4;
var s,s1,u:real;
k:integer;
begin
s:=0;//начальное значение суммы
k:=1;//номер первого слагаемого
repeat
s1:=s;
u:=(exp(ln(2)*(2*k-1)))/(3*k);{вычисление значения очередного
члена ряда}
writeln('u',u);
readln;
s:=s+u;//вычисление суммы ряда
k:=k+1;
until abs(s1-s)<e;
writeln('Количество членов ряда k = ',k);
writeln('Сумма ряда s = ',s:2:3);
end.

const e=1e-4;
var s,u,k2:real;
    k:integer;
begin
  s:=0;//начальное значение суммы
  k:=0;
  k2:=2;
  repeat
    k:=k+1;
    u:=k2/3/k;{вычисление значения очередного члена ряда}
    write('u(',k,'):',u);
    readln;
    s:=s+u;//вычисление суммы ряда
    k2:=k2*4;
  until abs(u)<e;
  writeln('Количество членов ряда k = ',k);
  writeln('Сумма ряда s = ',s:2:3);
end.

const e=1e-10;
var s,u:real;
    k:integer;
begin
  s:=0;//начальное значение суммы
  k:=0;
  u:=0.5;//2^(-1)
  repeat
    k:=k+3;
    u:=u*4/k/(k-1)/(k-2);{вычисление значения очередного члена ряда}
    write('u(',k div 3,'):',u);
    readln;
    s:=s+u;//вычисление суммы ряда
  until abs(u)<e;
  writeln('Количество членов ряда k = ',k div 3);
  writeln('Сумма ряда s = ',s);
end.