Сколько раз исполняется следующий цикл i:=21 Repeat i:=i+5 ; Until i<43
1 раз. Цикл repeat работает до тех пор, пока он не станет истинным, но выполнится один раз в любом случае. С самого начала условие истинное.