Сколько раз выполнится цикл?
p: =2;
repeat
p: =p*0.1
until p<0.1;

• 0
• 1
• 2
• бесконечное число раз