Вычисление ф-ии (ряд Тейлора) Pascal..!!

[Ekaterina_]

Вычислить и вывести на экран в виде таблицы значения ф-ии заданной с помощья ряда тейлора на интервале от x нач до x кон с шагом dx c точностью e.
сама функция на фотографии.

я сделала только начало, а основное что касается ф-ии не могу, буду рада если кто-то поможет или хотя бы что-нибудь подскажет))

[BDA]

Проверьте.

program demo; 

var
  xn, xk, h, x, t, e, s, n: real; 

begin
  {repeat 
    write('Vvedite nachalo i konec intervala xn,xk, xk>xn: '); 
    readln(xn, xk); 
  until (xk > xn);}
  repeat 
    write('vvedite shag tabulacii h= '); 
    readln(h); 
  until(h > 0) and (h < 2);
  repeat 
    write('vvedite tochnost(0,1) e= '); 
    readln(e); 
  until(e > 0) and (e < 1); 
  xn := -1;
  xk := 1;
  writeln('Tabulirovanie funkcii y=ln(1+x)'); 
  writeln('Na intervale (', xn:0:1, ';', xk:0:1, '] s shagom ', h:0:1); 
  writeln('-------------------------------'); 
  writeln('|   x   |     S     |    n    |'); 
  writeln('-------------------------------'); 
  x := xn + e-h; 
  repeat
  x := x + h;
    if x>1 then x:=1;
    s := 0; 
    n := 1; 
    t := x; 
    while abs(t / n) > e do 
    begin
      s := s + t / n; 
      t := t * (-x); 
      n := n + 1; 
    end; 
    writeln('|', x:6:3, ' |', s:9:4, ' |', (n-1):9:4, ' |'); 
  until abs(xk-x)<e;
  writeln('-------------------------------'); 
end.