Вычислить сумму

var n:integer;
    x,t,s:real;
begin
write('Введите x=');
readln(x);
write('Введите n=');
readln(n);
t:=1;
s:=t;
for var i:=2 to n do
 begin
  t:=-t*x;
  s:=s+i*t/(i+1);
 end;
write('S=',s:0:4)
end.

//Программирование рядов
 // F(x)= 1-2/3*x+3/4*x**2+...(-1)**(n-1)*n/(n+1)*(x**(n-1))+...
      
 const eps=1e-5;        //Погрешность
 var n:integer:=1;
 
 function F(x:real):real;
 var k:integer:=1; 
 var(a,d,s):=(1.0,1.0,1.0);
 begin     
   while abs(a)>eps  do   
   begin 
     n+=1;
     k:=-k;               //(-1)**(n-1)      
     d:=x*d;              //(x**(n-1))
     a:=k*(n+1)/(n+2)*d;  //n-й член ряда
     s:=s+a;            //сумма ряда
    //writeln('  n= ',n,'  x**(n-1) = ',d,' (-1)**(n-1) = ',k,'  a= ',a,'  s = ',s ); //отладочная печать
   end; 
     result:=s;
 end;
 
     BEGIN
  var x:real; 
     readln (x);
     if abs(x)<1 then
     writeln('x = ',x,'  F(x) = ',F(x) , '  n= ',n)     
     else writeln('x >=1, Ряд не сходится!') 
     END.

begin
  var(x,n,s):=(ReadReal,ReadInteger,0.0);
  for n := n downto 2 do
    begin
      s += (odd(n)?+1:-1)*n/Succ(n);
      s *= x;
    end;
  (s + 1).Println;
end.