Сколько раз будет исполнен цикл в фрагменте программы :
p:=23 ; k:=0
repeat
p:=p*0.1;
k:=k+1;
until p<0;

p=23*0.1=2.3
k=0+1=1
until 2.3 <0 ===> true
p=2.3*0.1=0.23
k=1+1
until 0.23 <0 ===> false
ципл перестанет выполнятся и тогда получается что лн выполнился 2 раза