Написать программу вычисления суммы

Program test;
 var i,n,k,b:integer;
     x,s,z,m,v:real;
  begin
   write ('Введите кол-во членов ряда: ');
   readln (n);
   write ('Введите X: ');
   readln (x);
   k:=-1; s:=x; v:=x;
   for i:=2 to n-1 do
      begin
      for b:=1 to i do 
      z:=i*i;
      v:=x*v;
      m:=v/z;
      s:=s+m*k;
    end;
   write ('Сумма =:', s:5:2);
  end.

var i,n:integer;
    x,s,v:real;
begin
write ('Введите кол-во членов ряда: ');
readln (n);
write ('Введите X: ');
readln (x);
v:=x;//первый член
s:=x; //первая сумма
for i:=2 to n do
 begin
  v:=-v*x;//меняем знак и домножаем на х
  s:=s+v/i;//делим на индекс и прибавляем
 end;
writeln('Сумма =',s:0:4);
// при |x|<1 ряд сходится для функции ln(x+1)
//write('ln(x+1)=',ln(x+1):0:4)
end.

program test;
var s,x,a,r:real; k,n,i,z:integer;
 begin 
   write('Введите число X : ');
   readln (x);
   write ('Введите кол-во членов ряда:');
   readln(n);
   s:=x; k:=1; a:=0;
   for i:=2 to n do
       begin a:=x/i;  r:=1;
             for z:=1 to i do r:=r*a;
             k:=-k;
             s:=s+k*r
       end;
   writeln('S = ',s:5:2);
 end.