Исполнитель Робот передвигается на клетчатой доске, выполняя команды: 1-шаг вверх, 2-шаг вниз, 3-шаг вправо, 4-шаг влево. Робот успешно выполнил программу: a) 2422432 б) 1213313

Какую последовательность командолжен выполнить Робот, чтобы вернуься кратчайшим путем в начальную клетку?

Информатика: 
романтика, аниматор, митрофан, романтик, антимир, 
инфаркт, камфора, каротин, картина, комната
марафон, мартини, матрона, намотка, окраина
ритмика, фанатик, фонарик, аконит, амфора
анатом, арника, аромат, африка, карман
картон, катион, катран, кафтан, комар
микрон
криптография: 
пиктография, типография, риторика,типограф,атрофия
киприот, порфира, тропики, гарпия, готика
график, графит, коряга, оптика, партия
пирога, портик, портки, приток, прокат
прятки, рапорт, трагик, трафик, тропик
тряпка, фактор, апорт, гопак, игрок
Декодирование:
кодирование, единоверка, диковина, иноверка, краденое
вареник, видение, воронка, вредина, дарение
двоение, дворник, доверие, доводка, кивание
киновед, конвоир, коневод,  краевед, родинка
водник, ворона, дверка, дворик, дерево
диакон, доение, дракон, древко, дровни
ендова

Const heigth = 10
Const width = 10

Sub Ìàêðîñ1()
    Dim Sum(heigth - 1, width - 1)
    Dim Product(heigth - 1, width - 1)
    
    For i = 0 To heigth - 1
        For j = 0 To width - 1
            Sum(i, j) = i + j
            Product(i, j) = i * j
        Next j
    Next i
    
    Call Show(Sum, 0, 0)
    Call Show(Product, 0, 12)
End Sub

Sub Show(ByRef m, dx, dy)
    For i = 0 To heigth - 1
        For j = 0 To width - 1
            ActiveSheet.Cells(dx + i + 1, dy + j + 1).Value = Hex(m(i, j))
        Next j
    Next i
End Sub