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