---

использовать Робот
алг
нач
  цел x, y
  лог красить

  нц 23 раз
    влево
  кц
  нц 15 раз
    вверх
  кц

  нц для y от 1 до 16
    нц для x от 1 до 25
      красить := ложь

      если y = 3 и (x = 3 или x = 7 или x = 19 или x = 23) то
        красить := истина
      все

      если y >= 4 и y <= 6 то
        если (x >= 3 и x <= 7) или (x >= 19 и x <= 23) то
          красить := истина
        все
      все

      если y = 5 то
        если (x >= 10 и x <= 12) или (x >= 14 и x <= 16) то
          красить := истина
        все
      все

      если y = 6 или y = 7 то
        если x = 9 или x = 13 или x = 17 то
          красить := истина
        все
      все

      если y = 7 или y = 8 то
        если (x >= 4 и x <= 6) или (x >= 20 и x <= 22) то
          красить := истина
        все
      все

      если y = 8 то
        если x = 9 или x = 17 то
          красить := истина
        все
      все

      если y >= 9 и y <= 11 то
        если (x >= 3 и x <= 7) или (x >= 19 и x <= 23) то
          красить := истина
        все
        если x = y + 1 или x = 25 - y то
          красить := истина
        все
      все

      если y >= 12 и y <= 14 то
        если (x >= 2 и x <= 8) или (x >= 18 и x <= 24) то
          красить := истина
        все
        если x = 25 - y или x = y + 1 то
          красить := истина
        все
      все

      если y = 15 то
        если (x >= 2 и x <= 10) или (x >= 16 и x <= 24) то
          красить := истина
        все
      все

      если красить то
        закрасить
      все

      если x < 25 то
        вправо
      все
    кц

    если y < 16 то
      нц 24 раз
        влево
      кц
      вниз
    все
  кц
кон