Imports System

Public Module Module1

    Public Sub Main()

        Dim nCount as long

        Dim nNum as decimal

        Dim nMax as decimal

        Do

            nNum = Console.ReadLine()

            'find the max

            If nNum > nMax then

                nMax = nNum

            End if

            nCount = nCount + 1

    Loop Until nCount = 2

    Console.WriteLine(nMax)

End Sub

End Module