Цикл в фрагменте программы
p := 100;
repeat p := p/10 until p = 10
будет исполнен:

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