(* Задача: на поле произвольных размеров из стен создан лабиринт,
 выход из лабиринта обозначен зеленой плиткой; требуется написать программу,
 которая позволяет Паркетчику найти выход из лабиринта. *)
(* Перед началом работы программы на поле должен быть cоздан лабиринт и
 зеленой плиткой отмечен выход; для примера лабиринт можно загрузить из
 файла лабиринт.prk *) 

Программа  {
 Делать пока ( НЕ з ) { 
  Делать пока ( снизу стена И НЕ справа стена И НЕ з ) {
   Шаг вправо; 
   Если ( НЕ снизу стена ) то { 
   Шаг вниз;
   }
  };
 Делать пока ( слева стена И НЕ снизу стена И НЕ з ) { 
  Шаг вниз;
  Если ( НЕ слева стена ) то {
   Шаг влево;
  }
 };
 Делать пока ( сверху стена И НЕ слева стена И НЕ з ) {
  Шаг влево;
  Если ( НЕ сверху стена ) то { 
   Шаг вверх;
  } 
 };
 Делать пока ( справа стена И НЕ сверху стена И НЕ з ) {
  Шаг вверх;
  Если ( НЕ справа стена ) то { 
   Шаг вправо;
  } 
 };
};   
}
