Imports System
Public Module Module1
Public Sub Main()
Dim pupil(20) As String
For index = 0 To 19
Console.WriteLine("Enter name")
pupil(index) = Console.ReadLine()
Next
Console.WriteLine("Group1")
For Index = 0 To 19 Step -2
Console.WriteLine(pupil(index))
Console.WriteLine("Group2")
For index = 1 To 19 Step 2
End Sub
End Module