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