Вычислить приближенное значение функции в некоторых заданных точках x

program summa;
   var
  x,n,i:integer;
  k:word;
  t,add,sum:real;
   begin
 writeln('Vvedite x, n');
 readln(x,n);
 sum:=0;
 for i:=0 to n do
      begin
      t:=(exp(ln(x)*(k+1))/sqr(k+2));
      sum:=sum+t;
      end;
 writeln('summa=', sum);
 readln;
 end.

var k, n: integer;
    x, a, s: real;
begin
  repeat
    write('n = ');
    readln(n);
    if n < 0 then writeln('Error: n < 0, reenter.')
  until n >= 0;
  repeat
    write('x = ');
    readln(x);
    if abs(x) >= 1 then writeln('Error: |x| >= 1 , reenter.')
  until abs(x) < 1;
  a := x / 4;
  s := a;
  for k := 2 to n + 1 do
    begin
      a := x * k / (k + 1) * k / (k + 1) * a;
      s := s + a
    end;
  write('s = ', s);
  readln
end.

var k, km, ke, ks: integer;
    x, a, s, se, ss, e: real;
begin
  repeat
    write('Максимальное количество членов Kmax = ');
    readln(km);
    if km <= 0 then writeln('Kmax должно быть > 0, повторите ввод.')
  until km > 0;
  repeat
    write('Точность вычислений eps = ');
    readln(e);
    if e <= 0 then writeln('Точность должна быть > 0, повторите ввод.')
  until e > 0;
  repeat
    write('x = ');
    readln(x);
    if abs(x) >= 1 then writeln('|x| должен быть < 1 , повторите ввод.')
  until abs(x) < 1;
  a := x / 4;
  s := a;
  k := 1;
  ks := -1;
  ke := -1;
  repeat
    if (ks = -1) and (k = km) then
      begin
        ss := s;
        ks := k
      end;
    if (ke = -1) and (abs(a) < e) then
      begin
        se := s;
        ke := k
      end;
    inc(k);
    a := x * k / (k + 1) * k / (k + 1) * a;
    s := s + a;
 until (k > km + 1) and (abs(a) < e);
  writeln('Сумма ', km, ' членов ряда = ', ss);
  writeln('Требуемая точность вычислений достигнута на шаге ', ke, ',');
  writeln('при этом сумма ряда = ', se);
  readln
end.