Циклы, cos(1+cos(3+cos(5+…+cos(23+cos(25))…))) Опции

[Саня]

Всех поздравляю с наступившим Новым годом!
Помогите пожалуйста, поискал в ФАКЕ вроде ничего подобного нет. подскажите как решить эту задачу!
Вычислить значение выражения: cos(1+cos(3+cos(5+…+cos(23+cos(25))…)))
У меня ещё один вопросик, как записать в Паскале след-ю формулу(она прикреплена)

[volvo]

Я бы все-таки привел это к "хвостовой рекурсии":

function f(x: real): real;
begin
  if x > 25 then f := 0
  else f := cos(x + f(x + 2));
end;

begin
  writeln(f(1):10:5);
end.