Цикл в фрагменте программы

p := 2;
repeat
p := p * 0.1
until p < 0.1

будет исполнен:

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