Imports System.IO
Imports System.Reflection
Imports System.Linq
Imports System.Xml.Linq
Public Class MainClass
Public Shared Sub Main
Dim numbers() As Integer = {5, 4, 1, 3, 9, 8, 6, 7, 2, 0}
Dim firstSmallNumbers = numbers.TakeWhile(Function(n, index) n >= index)
Console.WriteLine("First numbers not less than their position:")
For Each n In firstSmallNumbers
Console.WriteLine(n)
Next
End Sub
End Class