где-то в поле Робота находится вертикальная стена, размеры которой неизвестны. Робот из верхнего левого угла поля должен дойти до стены и закрасить все клетки вокруг нее. Пример результата работы программы показан на рисунке

Вот пограмма для робота в Кумире:

использовать Робот

цел н,р=0

алг нач

нц

н:=0

нц пока справа свободно; вправо; н:=н+1 кц

если н<р то выход иначе р:=н всё

нц пока слева свободно; влево; кц

вниз

кц

нц пока справа стена; закрасить; вниз кц

закрасить

вправо

закрасить

вверх

нц пока слева стена; закрасить; вверх кц

закрасить

влево

закрасить

кон