Задача для языка Free Pascal:
Вычислить значение суммы ряда Y(X) в произвольной точке х , если
Y(x) = sinx + sin^2(x) + sin^3(x) + ... + sin^n(x)
Величину х вводить
Выполнить вычисления для 5,10,15 и 20 слагаемых

var x,y,p:real; n,i:integer;beginwrite('x = ');readln(x);write('n = ');readln(n);p:=1;for i:=1 to n do begin p:=p*sin(x); y:=y+p; end;writeln('y = ',y:6:4);end.Пример:x = 1.5n = 5y = 4.9626