Программа

PROGRAM Sumup;
uses crt;
VAR Sum,SumPred:real; { Сумма, предыдущая сумма }
    X:real;  { Аргумент }
    i:real; { Счетчик }
BEGIN
  WriteLn; { Пропуск строки }
  Write('Введите X '); { Вывод приглашения }
  ReadLn(X); { Ввод X }
  Sum:=0;  { Начальное определение суммы }
  i:=0;    { Начальное определние счетчика }
  repeat { Цикл набора суммы }
    i:=i+1;  { Переопределение счетчика }
    SumPred:=Sum;  { Сохранение суммы полученной на предыдущей итерации }
    Sum:=Sum+i*Sin(2*i*X)/((2*i-1)*(2*i+1))  { Набор суммы }
;   if round(i) mod 10000=0 then writeLn(i:0:0,'  ',i/((2*i-1)*(2*i+1)))
  until Abs(Sum-SumPred)=0;  { Выход из цикла }
  Sum:=Sum*8/Pi;  { Учет общего множителя }
  WriteLn('Sum=',Sum) { Вывод суммы }
END.