Цикл в фрагменте программы:
p:=2;
repeat
p:=p*0.1
until p<0.1;
будет исполнен:

• 0 раз
• 1 раз
• 2 раза
• бесконечное число раз