Цикл в фрагменте программы
p:=1;
repeat
p:=p*0.1
until p>0.1;
Сколько раз будет исполнен
0
3
2
1
Бесконечно ​

Ответа на этот вопрос пока нет. Попробуйте найти его через форму поиска.

Вас заинтересует