Вычислить и вывести на экран в виде таблицы значения функции ln(x), заданной с помощью ряда Тейлора

{ВЫЧИСЛИТЬ И ВЫВЕСТИ НА ЭКРАН В ВИДЕ ТАБЛИЦЫ ЗНАЧЕНИЯ
ФУНКЦИИ, ЗАДАННОЙ С ПОМОЩЬЮ РЯДА ТЕЙЛОРА НА ИНТЕРВАЛЕ
ОТ XНАЧ ДО XКОН С ШАГОМ dx С ТОЧНОСТЬЮ E.
ТАБЛИЦУ СНАБДИТЬ ЗАГОЛОВКОМ И ШАПКОЙ.
КАЖДАЯ СТРОКА ТАБЛИЦЫ ДОЛЖНА СОДЕРЖАТЬ ЗНАЧЕНИЕ АРГУМЕНТА
,ЗНАЧЕНИЕ ФУНКЦИИ И КОЛИЧЕСТВО ПРОСУММИРОВАННЫХ ЧЛЕНОВ РЯДА.}
program laba 1_16;
var
  xn, xk, h, x, t, e, s, n, c: real;
 
begin
  repeat
    write('Введите начало и конец интервала xn,xk, xk>xn: ');
    {Запрашиваем у пользователя отрезок, на котором будем рассчитывать функцию}
    readln(xn, xk);
  until (xk > xn);
  repeat
    write('Ввелите шаг табуляции h>0,h<', xk - xn:0:1, ' h= ');
    {Запрашиваем шаг, пока он не удовлетворит условиям: больше нуля и меньше
     рассматриваемого отрезка}
    readln(h);
  until(h > 0) and (h < xk - xn);
  repeat
    write('Введите точность(0,1) e= ');
    {Запрашиваем точность расчета, пока она не станет в пределах (0;1)}
    readln(e);
  until(e > 0) and (e < 1);
  writeln('Табулирование функции y=ln*(x)');
  writeln('На интервале [', xn:0:1, ';', xk:0:1, '] s shagom ', h:0:1);
  writeln('---------------------------');
  writeln('|   x   |    S    |   n   |');
  writeln('---------------------------');
  x := xn; {становимся в начало отрезка}
  while x <= xk + h / 2 do {перебираем все иксы на данном отрезке}
  begin
    s := 0;
    n := 0;
    c := 1;
    t := 1;
    while abs(t / c) > e do {считаем функцию по формуле,пока элемент не станет
    меньше точности}
    begin
      n := n + 1;
      s := s + t / c;
      t := t * (-x);
      c := c * n;
    end;
    writeln('|', x:4:1, ' |', s:8:4, ' |', n:8:4, ' |');
    x := x + h;
  end;
  writeln('---------------------------');
end.

program laba_1_16;
uses crt;
var
  xn, xk, h, x, t, e, s, c: real;
  n:integer;
begin
 {Запрашиваем у пользователя отрезок, на котором будем рассчитывать функцию}
  repeat
    write('Введите начало интервала xn>0 xn=');
    read(xn);
  until (xn > 0);
  repeat
    write('Введите конец интервала xk>',xn:0:1,' xk=');
    read(xk);
  until (xk > xn);
  repeat
    write('Ввелите шаг табуляции h<',xk-xn,' h= ');
    {Запрашиваем шаг, пока он не удовлетворит условиям: больше нуля и меньше
     рассматриваемого отрезка}
    read(h);
  until h < xk - xn;
  repeat
    write('Введите точность(0,1) e= ');
    {Запрашиваем точность расчета, пока она не станет в пределах (0;1)}
    read(e);
  until(e > 0) and (e < 1);
  writeln('Табулирование функции y=ln*(x)');
  writeln('На интервале [', xn:0:1, ';', xk:0:1, '] s shagom ', h:0:1);
  writeln('----------------------------------');
  writeln('|  x   |    S    |  n  |   lnx   |');
  writeln('----------------------------------');
  x := xn; {становимся в начало отрезка}
  while x <= xk + h / 2 do {перебираем все иксы на данном отрезке}
  begin
    s := (x-1)/(x+1);
    n := 0;
    t := (x-1)/(x+1);
    while abs(t/(2*n+1)) > e do {считаем функцию по формуле,пока элемент не станет
    меньше точности}
    begin
      n := n + 1;
      t:=t*sqr((x-1)/(x+1));
      s := s + t /(2*n+1);
     end;
     s:=2*s;
    writeln('|',x:4:1,'  |',s:8:4,' |', n:4, ' |',ln(x):8:4,' |');
    x := x + h;
  end;
  writeln('----------------------------------');
end.