Программа

PROGRAM Sum;
VAR S:real;    { Сумма }
    i:integer; { Счетчик итераций }
BEGIN
  S:=0; { Сброс суммы }
  for i:=1 to 17 do  { Цикл набора суммы }
    S:=S+Cos(i*Pi/4)/Sqr(i); { Вычисление слагаемого и набор суммы }
  WriteLn('S=',S) { Вывод результата }
END.