ЭТО Любая_длина
  ВПРАВО
  ЕСЛИ НЕ ПУСТО
    ТО     { Любая_длина Добавить_1 }
    ИНАЧЕ  Подготовка_к_записи_ответа
КОНЕЦ

ЭТО Подготовка_к_записи_ответа
  // Установим окно через пустую
  // ячейку слева от текста
  ВЛЕВО
  ПОКА НЕ ПУСТО ВЛЕВО
  ВЛЕВО
  // Запишем на ленту начальное
  // значение результата
  ПИШИ 0
КОНЕЦ

ЭТО Добавить_1
  // Установим окно на младшую цифру
  // текущего значения результата
  ПОКА НЕ ПУСТО ВПРАВО
  ВЛЕВО
  // Увеличим значение результата на 1
  Плюс1
КОНЕЦ

// ------------------------------------
// Добавление единицы.
// Начальное положение окна:           
// на младшей цифре числа              
// Конечное положение окна:
// на одной из цифр результата         
// Замечание:
// Исходное число может подрасти
// на один разряд слева.
// ------------------------------------
ЭТО Плюс1
  ПОКА 9 { ПИШИ 0 ВЛЕВО }
  ЕСЛИ НЕ ЦИФРА
    ТО    ПИШИ 1
    ИНАЧЕ ПЛЮС
КОНЕЦ

