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

1. Инициализация: p = 2.
2. Первая итерация: p = 2 * 0.1 = 0.2. Условие p < 0.1 (0.2 < 0.1) ложно.
3. Вторая итерация: p = 0.2 * 0.1 = 0.02. Условие p < 0.1 (0.02 < 0.1) истинно. Цикл завершается.
Ответ: 2 раза.