Иногда быстро находит коридор, но иногда долго ждать приходится пока найдет))
использовать Робот
алг
нач
цел i,k
i:=1
k:=0
нц пока k=0
i:=int(rnd(4))+1
если i=1 и справа свободно то вправо все
если i=2 и слева свободно то влево все
если i=3 и сверху свободно то вверх все
если i=4 и снизу свободно то вниз все
нц пока (слева стена и справа стена)
закрасить
если i=3 то вверх иначе вниз все
k:=1
кц
нц пока (сверху стена и снизу стена)
закрасить
если i=1 то вправо иначе влево все
k:=1
кц
кц
кон