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

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