Хто-то святий составьте блох схему
Сходить в магазин за мороженым, взяв с собой 100 рублей, обратить внимание на сдачу (т. е. условие будет сколько стоит мороженое, если 100 рублей сдачи нет, уходим, если меньше – берем сдачу и уходим)

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

Судя по полагается то ,  что они играли не зависимо за какую именно .  посчитаем сколько вообще было встреч , у команды первой лиги команд в 2 раза больше так как    .  посчитаем отдельно каждую встречу внутри команд ,и между разными .    по первой лиги это число сочетаний по высшей лиги это число сочетаний а между собой очевидно в сумме встреч.  если не было ничьи то очевидно одно из двух  1) либо   команда проиграет  2) либо команда выиграет  число выигрышей и проигрышей будет равна количеству сыгранных игр . то есть если всего у команда  побед то  пусть количество выигрышей команды первой лиги равна  , то другой что бы число делилось на 8 , очевидно что n либо само должно быть кратно 8 , либо     должно делится на 8 , подходит   при нем все выполняется