При выполнении фрагмента программы операторы, составляющие тело цикла, выполнятся … раз:
A:=1;

While A<=100 Do

Begin

A:=A*2;

End;

0