Imports System

Public Module Module1

    Public Sub Main()

        dim n, maxS, c, score as integer 

        dim maxN, name as string 

        maxS = -1

        c = 0 

        n = console.ReadLine()

        while c< n 

            console.WriteLine( " Enter the name & score ")

            name = console.ReadLine()

            score = console.ReadLine()

            if score > maxS

                maxS = score

                maxN = name 

            end if 

            c + = 1 

        end while 

        console.WriteLine( " name = " &  maxN)

        console.WriteLine( " score = " & maxS)  

    End Sub

End Module