---

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

алг закрасить_соседей
нач
  нц пока справа свободно
    вправо
    если клетка закрашена то
      вверх; закрасить; вниз
      вниз; закрасить; вверх
    все
  кц
кон