программа, которая с точностью определяет значения функции y=ln(1-x),а модуль х<1,

[АлександрFRONT]

Помогите,пожалуйста,написать условие програмы,которая с точностю определяет значения функции y=ln(1-x),а модуль х<1,
для этого используйте такую формулу,проверте,пожалуйста роботу програмы


program lub7;
uses crt;
var S,x,t:real;
n:longint;
begin
clrscr;
writeln (' vvedite tochnost obchuslennya ');
readln (t);
Writeln (' vvedite X (abs(x)<1) ' );
readln (x);
n:=1;
repeat
s:=????????
inc(n);
until???????
writeln (' znachennya fynkcii = ');
readln;
writeln (' Pidsymovano ',n,' chleniv ryady ');
readln;
end.

[alex_fcsm]

uses crt;
var S,x,t:real;
n:longint;

function Fun(a:real;b:integer):real;
begin
Fun:=exp(ln(abs(a))*b)/b;
if (a < 0) and (b mod 2=0) then Fun:=-exp(ln(abs(a))*b)/b;
end;

begin
clrscr;
writeln (' vvedite tochnost obchuslennya ');
readln (t);
Writeln (' vvedite X (abs(x)<1) ' );
readln (x);
n:=1;s:=0;
repeat
s:=s+fun(x,n);
inc(n);
until Fun(x,n)<=t;
writeln (' znachennya fynkcii = ',-s:10:4);
readln;
writeln (' Pidsymovano ',n,' chleniv ryady ');
readln;
end.

[АлександрFRONT]

Огромное СПАСИБО