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

const xn=1.0;
      xk=1.5;
      dx=0.1;
      e=0.00001;
var x,s,a:real;
    n,i,Count:integer;
begin
  writeln('Таблица значений функции y=ln(x)');
  writeln('представленной разложением в ряд Тейлора');
  writeln('на интервале [',xn:0:1,';',xk:0:1,'] с шагом ',dx:0:1,' с точностью ',e:0:5);
  Count:=Round((xk-xn)/dx);
  writeln('-----------------------------');
  writeln('| x |  s(x)  |  n  |  f(x)  |');
  writeln('-----------------------------');
  i:=0; 
  x:=xn;
  while (i<=count) do
  begin
  n:=0; 
  a:=(-1)*(sqr(x-1)/2);
  s:=x+a-1;
  repeat
  inc(n);
  a:=a*((power(-1,n))*(x-1)*n)/(n+1);
  s:=s+a;
  until abs(a)<e;
  writeln('|',x:3:1,'|',s:8:5,'|',n+1:3,'  |',ln(x):8:5,'|');
  inc(i);
  x:=x+dx;
 end;
writeln('-----------------------------');
end.

const eps=1e-5; x1=1.0; x2=1.5; dx=0.1;
var
  x, s, t, e: Real;
  i, n: Integer;
begin
  x:=x1-1.0;
  while x<=x2-1.0 do begin
    s:=0; t:=x; e:=x; n:=1;
    while Abs(e)>=eps do begin
      s:=s+e; Inc(n); t:=-t*x; e:=t/n;
    end;
    WriteLn('|',x+1:3:1,'|',s:8:5,'|',n-1:3,'  |',Ln(x+1):8:5,'|');
    x:=x+dx;
  end;
end.