Алгоритм с применением вложенных базовых структур «цикл с предусловием» или «цикл с постусловием»

const xn=1.5;
      xk=2.0;
      dx=0.1;
      e=0.0001;
function f(x:real):real;
begin
f:=ln((x+1)/(x-1));
end;
var x,t,s:real;
    n:integer;
begin
//выводим шапку
writeln('Таблица значений функции y=ln((x+1)/(x-1))');
writeln('представленной разложением в ряд Тейлора');
writeln('на интервале [',xn:0:2,';',xk:0:2,'] с шагом ',dx:0:2,' с точностью ',e:0:4);
writeln('-------------------------------');
writeln('|  x  |  s(x)  |  n  |  f(x)  |');
writeln('-------------------------------');
//начнем с начала интервала
x:=xn;
while x<xk+dx/2 do //пока не конец
 begin
  n:=0;//нулевой член ряда
  t:=1/x; //его значение
  s:=t; //первая сумма
  while abs(t)/(2*n+1)>e do//пока очередной член ряда больше точности
   begin
    n:=n+1;//увеличиваем n на 1
    t:=t/sqr(x); //делим предыдущий член на x^2
    s:=s+t/(2*n+1); //делим на 2n+1 и прибавляем к сумме
   end;
  s:=s*2;//умножаем сумму на 2
  writeln('|',x:5:2,'|',s:8:4,'|',n+1:3,'  |',f(x):8:4,'|'); //выводим аргумент значение суммы
                                                             //число слагаемых  и аналитическое значение
  x:=x+dx;//увеличиваем х на 1 шаг
 end;
writeln('-------------------------------');
end.