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