Пожалуйста посчитайте пожалуйста,мне надо с решением.Цикл в фрагменте программыp:=2;repeatp : =p*0.1until p<0.1;Будет исполнен?

p = 2
1 шаг цикла:
p = p*0.1 = 2*0.1 = 0.2
p < 0.1 ⇒ 0.2 < 0.1 ⇒ false
2 шаг цикла:
p = p*0.1 = 0.2*0.1 = 0.02
p < 0.1 ⇒ 0.02 < 0.1 ⇒ true

: тело цикла выполнится 2 раза