Sub Main()
        'LINQ in life ;)))
        Dim inti = From i In int() Where i Mod  2  Order By i Select i
        printRes(inti)

        inti = From i In int() Where i <=  5  Order By i Descending Select i
        printRes(inti)

    End Sub

    Private Function int() As Integer()
        Dim i() As Integer = { 1 ,  0 ,  2 ,  5 ,  6 ,  4 ,  3 ,  10 ,  8 ,  9 ,  7 }
        Return i
    End Function

    Private Sub printRes(ByVal inti)
        For Each i As Integer In inti
            Console.WriteLine(i)
        Next
        Console.ReadLine()
    End Sub