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