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