Программа

VAR i:byte; {Счетчик}
    y:real; {Переменная набора результата}
BEGIN
  y:=0; {Начальное определение переменной}
  for i:=8 downto 1 do y:=cos(i+y); {Цикл набора значения}
  WriteLn('y=',y) {Вывод результата}
END.