Алгоритм на языке pascal выглядит следующим образом

{Вычисление суммы последовательности}

const n=5;

var s, a, x, mn, f: real; i: byte;

Begin

writeln (‘Введите x, 1 <= x <= 1.5’);

readln (x);

{Начальная установка}

a:=x; s:=a; mn:=-x*x; f:=1;

for i:=1 to n do begin

f:=f+2; a:=a*mn/(f-1)/f; s:=s+a end;

writeln (‘сумма=’,s:10:4);

End.

Для n = 5, x = 1.5 имеем S = 0.9975.

Для n = 5, x = p/3 имеем S = 0.8660.