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