Вычислить значение выражения по формуле

[Анастасия09]

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

[BDA]

Что вызывает затруднения?

s := 0;
t := 1;
for i := 1 to n do
begin
  t := t * sin(x);
  s := s + t;
end;

Вам осталось объявить переменные и вывести s.