Pascal. Оператор цикла REPEAT-UNTILL.

Давайте вспомним как работает цикл while-do:

while (условие) do
begin
  оператор(группа операторов);
end;
пока (выполняется это условие) делай
от начала
  оператор(группа операторов);
до конца;

То есть цикл сначала проверяет истина ли условие или нет, и если истина, то выполняет операторы заключённые в цикле, если условие ложно, то он не выполняет операторы в цикле.

Бывают случаи в программировании, когда нужно выполнить операторы в цикле последний раз, даже если условие будет ложно.

Для этого используется цикл repeat-until, он сначала выполняет операторы, а потом проверяет условие. Давайте рассмотрим конструкцию этого цикла:

REPEAT
  оператор(группа операторов);
UNTIL (условие);
ПОВТОРЯЙ
  оператор(группа операторов);
ДО (тех пор, пока условие не будет верным);

Давайте попробуем написать программу, которая в цикле считывала бы с клавиатуры данные, а именно число, и в специальную переменную заносила бы сумму, этого числа, и этой переменной, и когда сумма стала бы равна или больше десяти, то цикл бы остановился:

Program repeat_until;
uses crt;
var num, sum: Integer;
begin
clrscr;
repeat
  write('Введите число - ');
  readln(num);
  sum := sum + num;
until (sum >= 10);
write('Сумма чисел равна - ', sum);
readln;
end.