Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim i as integer

        For i = 0 to 1

            Dim s as string

            s = console.readline()

            Dim ans() as string

            ans = s.Split(",")

            If ans(0) >= 100

                If ans(2) >= 100

                    Do

                        Console.WriteLine("enter again")

                        ans = s.Split(",")

                    loop until ans(0) < 100

                end if

            end if

​

            Dim n as integer

            For n = 0 to 1

                Console.WriteLine(ans(n))

            next

        next

    End Sub

End Module

​