Программа

PROGRAM Summing2;
VAR Sum:real;      { Сумма }
    a,b:real;      { Границы итервала }
    i:word;        { Счетчик }
    n:word;        { Число элементов серии }
    Element:real;  { Элемент серии }
BEGIN
  WriteLn;  { Пропуск строки }
  Write('Введите число элементов серии '); { Вывод приглашения }
  ReadLn(n);  { Ввод числа элементов серии }
  Write('Введите левую границу интервала '); { Вывод приглашения }
  ReadLn(a);  { Ввод левой границы интервала }
  Write('Введите правую границу интервала '); { Вывод приглашения }
  ReadLn(b);  { Ввод правой границы интервала }
  Sum:=0;     { Начальное определение суммы }
  for i:=1 to n do   { Цикл перебора элементов серии }
    Begin
      Element:=Cos(n+i/n);  { Вычисление элемента серии }
      if (a<=Element)and(Element<=b) then Sum:=Sum+Element
                { Если элемент лежит на отрезке, то набор суммы }
    End;
  WriteLn('Sum=',Sum)
END.