СРОЧНО!!! ПОМОГИТЕ!
Составить алгоритм вычисления выражения S=sinx+sin^2x+...+sin^nx. Повторяющимся действием будет S=Ssinx, начальное значение суммы S=sinx.

var x,sn,s:real; n,i:integer;beginreadln(x,n);s:=0;sn:=1;for i:=1 to n do begin sn:=sn*sin(x); s:=s+sn; end;writeln('s = ',s:6:4);end.Пример:0.9 5s = 2.5490