Составить алгоритм вычисления выражения s=sinx+sin^2x++sin^nx. повторяющимся действием будет s=ssinx, начальное значение суммы s=sinx.

Var x,sn,s:real; n,i:integer;
begin
readln(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 5
s = 2.5490