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