`S=1+x/2+x^2/3+....+x^n/(n+1)`

`Python`

x=int(input("X="))
n=int(input("N="))
s=1 
for i in range(2,n+2):
    s=s+ (x**i-1)/i 
print(s)

`Pascal`

uses crt;
 var x,n,i : integer ;
  s : extended ;
   begin
    clrscr;
     write('X=');
      readln(x);
     write('N=');
      readln(n);
 s := 1 ;
  for  i := 2 to n+1 do
   s:=s+ ( exp(x*ln(i-1))) /  i ;
 writeln(s:3:2);
  end .

uses crt;
var i,n,x: integer;
s: real;
function tt(x,n: integer): integer;
var i,s: integer;
begin
s:=1;
for i:=1 to n do
s:=s*x;
tt:=s;                                      //Trumtinhoc
end;
begin
clrscr;
write ('nhap n: '); readln (n);
write ('nhap x: '); readln (x);
s:=1;
for i:=2 to n do
s:=s+tt(x,n-1)/n;
writeln ('tong la: ',s:1:2);
readln;
end.
$#Trumtinhoc$