Вычислить сумму +^3/3+^5/5+⋯+^11/11, x вводится с клавиатуры

//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016) var x,xn,i,j:integer;   s:real; begin   readln(x);   i:=1;   while i<=11 do begin     xn:=1;     for j:=1 to i do xn:=xn*x;     s:=s+xn/i;     i:=i+2;   end;   writeln(s); end.