Программа

VAR n:integer;   { Переменная }
    x:real;      { Переменная }
    i:integer;   { Счетчик }
    SumSin:real; { Переменная для набора суммы синусов }
    Z:real;      { Результат }
BEGIN
  WriteLn;              { Пропуск строки }
  Write('Введите x ');  { Вывод приглашения ввести x }
  ReadLn(x);            { Ввод x }
  Write('Введите n ');  { Вывод приглашения ввести n }
  ReadLn(n);            { Ввод n }

  SumSin:=0;            { Начальное обнуление суммы синусов }
  Z:=0;                 { Начальное обнуление суммы }
  for i:=1 to n do      { Цикл набора суммы }
    Begin
      SumSin:=SumSin+Sin(i*x);   { Набор суммы синусов }
      Z:=Z+1/SumSin              { Набор суммы }
    End;

  WriteLn('Z=',Z)      { Вывод суммы }
END.