Цикл с постусловием

Оператор используется, когда количество повторений заранее неизвестно, а задано некоторое условие выхода из цикла.

Формат:

    Repeat
       <оператор 1>;
        . . .
       <оператор K>
    Until  <условие>;

Цикл с постусловием – это цикл, в котором проверка условия выполняется в конце цикла.

Последовательность действий при выполнении цикла:

1. Выполняются <оператор 1>, … <оператор K>.
2. Проверяется <условие>. Если оно ложно, то выполняется возврат к метке Repeat, т.е. к выполнению операторов тела цикла.
3. Пункты 1 и 2 выполняются до тех пор, пока <условие>  не станет истинным.

Задача: Ввести целое положительное число (<2000000) и определить число цифр в нем.
Проблема: Как не дать ввести отрицательное число или ноль?
Решение: Если вводится неверное число, вернуться назад к вводу данных (цикл!).
Особенность: Один раз тело цикла надо сделать в любом случае => проверку условия цикла надо делать в конце цикла (цикл с постусловием).
   program qq;
   var n: integer;
   begin
   repeat
   writeln('Введите положительное число');
   read(n);
   until n > 0;
   ... { основной алгоритм }
   end.