// На ленте записан текст, в котором   
// не более 9 символов. Записать       
// на ленту его длину. В начальный     
// момент окно установлено на первый   
// пустой символ перед текстом.        
                                       
ЭТО Длина                              
  Обнуление_счетчика                   
  Работа                               
  Запись_ответа                        
КОНЕЦ                                  
                                       
ЭТО Обнуление_счетчика                 
  ПИШИ 0                               
  ЯЩИК+                                
  ПИШИ ПУСТО                           
КОНЕЦ                                  
                                       
ЭТО Работа                             
  ВПРАВО                               
  ПОКА НЕ ПУСТО                        
  {                                    
    Добавить_к_счетчику_1              
    ВПРАВО                             
  }                                    
КОНЕЦ                                  
                                       
ЭТО Добавить_к_счетчику_1              
  ВЛЕВО                                
  ЕСЛИ НЕ ПУСТО                        
    ТО Добавить_к_счетчику_1           
    ИНАЧЕ                              
    {                                  
      // Увеличение числа в ящике на 1 
      ЯЩИК-                            
      ПЛЮС                             
      ЯЩИК+                            
      ПИШИ ПУСТО                       
    }                                  
  ВПРАВО // Отложенная команда. Она    
         // возвращает окно на текущее 
         // место в тексте.            
КОНЕЦ                                  
                                       
ЭТО Запись_ответа                      
  ВПРАВО                               
  ЯЩИК-                                
КОНЕЦ                                  
