// Перевод символьного числа           
// в обычное число.                    
// Вход:  окно установлено             
//        на символьное число.         
// Выход: окно установлено             
//        на младшую цифру результата, 
//        которая теперь занимает      
//        ячейку символьного числа.    
// Ограничение:                        
//        процедура работает           
//        только для символьных чисел, 
//        значение которых меньше 100. 
// ------------------------------------
                                       
ЭТО Символ_в_число                     
  ПОКА НЕ ЦИФРА                        
  {                                    
   ПОВТОРИ 10 МИНУС                    
   ВЛЕВО                               
   ЕСЛИ ПУСТО                          
    ТО    ПИШИ 1                       
    ИНАЧЕ ПЛЮС                         
   ВПРАВО                              
  }                                    
КОНЕЦ                                  
