Создать алгоритм и программу для нахождения суммы ряда: программу такую, когда работаем например в паскале

Var i: integer;
  S, x, x2: double;
begin
  readln(x);
  S := x;
  x2 := sqr(x);
  for i := 1 to 6 do
  begin
    x := x * x2;
    S := S + x / (2 * i);
  end;
  writeln(S)
end.