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

[Саня]

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

[APAL]

Var Res : Real;

Procedure FFF(aa);
Begin
  If aa>=3 then
  Begin
    Res:=aa-2+cos(Res);
    FFF(aa-2);
  End
    else
       Res:=cos(Res);
End;

Begin
  Res:=25;
  FFF(Res);
  Writeln(Res:6:4);
End.

Так как не даны заведомо правильные входные и выходные данные - результат требует проверки.

Не думаю что это лучший вариант, на на лучшее в половине 5-го утра мозги не варят... бессонница, млин...