Цикл в фрагменте программы

s:=5;

repeat

s :=s * 0.2;

until s < 0.1;

будет исполнен:

3 раза
1 раз
2 раза
0 раз

---