Вычислить сумму 10-ти членов ряда

Запишем формулу суммы в виде, более удобном для программирования:
$\displaystyle S=\sum_{i=1}^{10}\frac{x^{2i-1}}{2i}$

var
i:integer;
x,xi,x2,s:real;

begin
Write('x = '); Read(x);
s:=0.5;
xi:=x;
x2:=x*x;
for i:=2 to 10 do begin
    xi:=xi*x2;
    s:=s+xi/(2*i)
    end;
Writeln('S=',s)
end.

Пример
x = 3.62
S=2254030236.00533

Во вложении приведено контрольное решение