Вычислить сумму +^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.