Imports System

Public Module Module1

    Public Sub Main()

        Dim a,h,c As Decimal

        a=0

        h=0

        c=0

        Do  

        Console.WriteLine("Please Enter a")

        a=Console.ReadLine()

        If a>h Then h=a

        c=c+1

            Loop Until c >= 20 

        Console.WriteLine(h)

    End Sub

End Module