---

     если 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 раз

        влево

      кц

      вниз

    все

  кц

кон