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