Программа

Ввести натуральное n, действительное х.
Вычислить sin(x)+sin(x)^2+...+sin(х)^n, вывести результат на экран.
VAR
  n,i:integer; { Число членов ряда и счётчик для цикла }
  x,SinX,PowSinX,Sum:real; { Аргумент функции, вспомогательные
  переменные для синуса и степени синуса, переменная для набора суммы }
BEGIN
  Write('Введите n '); ReadLn(n);
  Write('Введите x '); ReadLn(x);
  SinX:=sin(x);
  PowSinX:=1; { Начальное определение степени }
  Sum:=0;     { Начальное определение набираемой суммы }
  for i:=1 to n do { Цикл набора суммы }
  Begin
    PowSinX:=PowSinX*SinX; { Пересчёт члена ряда (набор степени) }
    Sum:=Sum+PowSinX; { Набор суммы }
    WriteLn(i,' ',PowSinX,' ',Sum); { Вывод промежуточного результата, можно удалить строку }
  End;
  WriteLn('Sum=',Sum) { Вывод результата }
END.