Переход от Repeat(или While) к For, Реально ли это? Опции

[bhldr]

По идее когда число повторений неизвестно, For использовать нельзя, но может все-таки как-нибудь можно?
Реально ли перебить этот фрагмент под цикл For?

Var x,eps,U,Un:Real; 
a:Byte; 
.......
U:=1; 
a:=2; 
Un:=U*cos(x/a); 
Repeat 
    U:=Un;
    Un:=U*cos(x/a); 
    a:=a*2 
Until Abs (Un-U)<eps;
........

[bhldr]

Мне RepeatUntil нравится, просто задание у меня такое: нужно эту тему представить в трех циклах, а я не врубаюсь, как ее в For перебить.