Repeat - это цикл с пост условием то есть в первый раз всё равно выполнится. Теперь разберём цикл, он будет выполнять это действие
(p:=p*0.1) пока (p) не станет меньше 0.1 , теперь работаем в теле цикла, (p) изначально равен двум по этому получаем p:=2*0,1; получаем p:=0,2 проверяем условие 0,2<0,1 нет повторяем второй раз цикл, теперь p:=0,2 а не 2 как было в первый раз p:=0,2*0,1 p:=0,02 проверяем условие<br>0,02<0,1 да меньше цикл прерывается и (p) остаётся равным 0,02<hr>