Даны натуральное n, действительное число х. Вычислить: sin x+ (sin)^2 x+ ...+(sin)^n x

varx, sum, s: real;i, n: integer;beginsum := 0;read(n, x);s := 1;for i := 1 to n dobegins := s * sin(x);sum := sum + s;end;writeln(sum);end.