Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim num as integer

        Dim min as integer

        dim inp as integer

        For num = 1 to 100

            inp = console.readline()

            If num = 1 then

                min = inp

            Else if inp > min then

                min = inp

            End if

            If inp = -1 then

            console.WriteLine("maxium value:" & min)

            end if 

        next

    End Sub

End Module