Если (n - 1)-ое слагаемое равно y, то n-ое слагаемое равно -y * x^2 / (2n * (2n + 1)). Осталось положить первое слагаемое равным x и просуммировать 6 раз.
PascalABC.NET 3.2
begin
var x := readReal;
var y := x;
var s := x;
var n := 1;
while (n < 7) do
begin
y := -y * x * x / (2 * n) / (2 * n + 1);
s += y;
n += 1;
end;
writeln(s);
end.
Пример ввода: 1
Пример вывода: 0.841470984808658