Оператор цикла с постусловием

Назначение

Оператор цикла с постусловием предназначен для организации многократного выполнения фрагмента программы при выполнении некоторого условия, указанного после выполнения < тела цикла >. Это условие проверяется после выполнения < тела цикла >, поэтому < тело цикла > всегда будет выполнено хотя-бы один раз.

Синтаксис
     
LOOP
  < тело цикла >
UNTIL < выражение >
Описание

< выражение > должно быть логического типа. Если его значение TRUE, выполняется < тело цикла > начиная с LOOP, после чего снова вычисляется < выражение > и принимается решение о продолжении (прекращении) цикла. Если значение < выражения > FALSE, управление передается на следующий после UNTIL оператор. Чтобы количество циклов было конечным, в < теле цикла > обязательно должно выполняться изменение переменных или условий, влияющих на < выражение >.

Пример
x:=1;
loop
  {тело цикла}
  x:=x+1;
until x >20;