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

Запишем формулу суммы в виде, более комфортном для программирования:


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

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