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

1. Инициализация: p = 2.
2. Первый проход: p = 2 * 0.1 = 0.2. Условие `until p < 0.1` (0.2 < 0.1) ложно.
3. Второй проход: p = 0.2 * 0.1 = 0.02. Условие `until p < 0.1` (0.02 < 0.1) истинно. Цикл завершается.
Значение `p` после выполнения цикла будет 0.02.