Дана последовательность: d(n) sinn; n 1, 50. вычислить сумму всех элементов этой последовательности, удовлетворяющих условию: |d(n)|> 0.5

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Матем ИЗ "...\Отделы\Числа\";

ПЕР
  d: РЯД 50 ИЗ ВЕЩ;
  n, сумма: ВЕЩ;
  сч: ЦЕЛ;

УКАЗ
  n := 1.0; сумма := 0;
  ОТ сч := 0 ДО РАЗМЕР(d) - 1 ВЫП
    d[сч] := УЗК(Матем.sin(n));
    n := n + 1.0;
    ЕСЛИ МОДУЛЬ(d[сч]) > 0.5 ТО
      сумма := сумма + d[сч]
    КОН
  КОН

КОН Задание.