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