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

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 проверяем условие
0,02<0,1  да меньше цикл прерывается и (p) остаётся равным 0,02