X+ x^3\3+x^5\5+ вычислить язык паскаль

Var 
  x,i: integer;
  rez: real;
begin
  write ('Введите x:  ');
  readln (x);
  i:=1;
  rez:=0;
  while i<=11  do begin
    rez:=rez+power(x,i)/i;
    i:=i+2;
  end;
  writeln ('rez = ',rez);
end.

Введите x:  2
rez = 272.423088023088