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