Imports System

Public Module Module1

    Public Sub Main()

        Dim MyArray(10) as Integer

        Console.WriteLine("Enter 10 Whole Numbers")

        For i = 1 to 10

MyArray(i) = Console.Readline()

        next 

    For i = 1 to 10

    If MyArray(i) > 50 Then

        Console.Writeline( MyArray(i) & " at position " & i)

        End IF

Next

​

    For i = 1 to 10

    If MyArray(i) < 50 Then

        Console.Writeline( MyArray(i) & " at position " & i)

        End IF

Next

            For i = 1 to 10

    If MyArray(i) = 50 Then

        Console.Writeline( MyArray(i) & " at position " & i)

        End IF

Next

    End Sub

End Module