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

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