Module Program
   ReadOnly G As Short(,) = {{0, 1, 0, 0, 0, 0, 0},'столбцы j
                             {0, 0, 0, 0, 0, 1, 0},
                             {1, 0, 0, 0, 1, 0, 0},'строки i
                             {0, 0, 0, 0, 0, 1, 0},
                             {0, 1, 0, 0, 0, 0, 1},
                             {0, 0, 0, 0, 0, 0, 0},
                             {0, 0, 0, 1, 0, 0, 0}}
   ReadOnly i_max As Short = G.GetLength(0) - 1 'длина массива G в одном измерении
   Public L(i_max) As Short 'массив сортируемых уровней
   Public a(i_max) As List(Of Short) 'список ненулевых элементов строк
   Public k As Short = -1 'маркер входного уровня сети
   Sub Main()
      Dim i, j, k, res As Short, dIn0, dInp_0, dOut_0 As Boolean
      'проверка графа на сеть
      For j = 0 To i_max
         For i = 0 To i_max
            If G(i, j) > 0 Then dIn0 = True : Exit For
         Next
         If dIn0 Then L(j) = k : dInp_0 = True : dIn0 = False
      Next
      For i = 0 To i_max
         Dim b As New List(Of Short)
         For j = 0 To i_max
            If G(i, j) > 0 Then a(i).Add(j) 'b.Add(j)
         Next
         'a(i) = b
         If a(i).Count = 0 Then dOut_0 = True 'If b.Count = 0 Then dOut_0 = True
      Next

      'For i = 0 To i_max
      'Debug.Print(a.ToString)
      'Next

      'Stop

      If Not (dInp_0 And dOut_0) Then Console.WriteLine("Граф не является сетью.") : Exit Sub
      'поиск входных узлов сети
      For i = 0 To i_max
         If L(i) = -1 Then res = DInp(i)
      Next

      Console.WriteLine("Выходные уровни L:" & L.ToString)

      'Console.WriteLine(String.Join("; ", From t In (From r As List(Of Integer) In a Select r.Select(Function(x) x.ToString())) Select "{" & String.Join(";", t) & "}"))
   End Sub
   Private Function DInp(ByRef n As Short) As Short 'функция определения топологических уровней графа
      For Each an In a(n)
         L(an) += 1 : Return DInp(an) : Exit Function
      Next
      DInp = 0
   End Function
End Module