Imports System

Public Module Module1

    Public Sub Main()

        dim StuMark as integer = 0

        dim MaxMark as integer = 0

        Dim Percent as integer = 0

        Console.writeline("Input Student Mark")

        StuMark = Console.readline

        Console.Writeline("Input MAX Mark")

        MaxMark = Console.readline

        Percent = StuMark / MaxMark *100

        Select Case Percent

        Case Is >= 80

            Console.Writeline ("Grade A")

        Case Is >= 70

            Console.Writeline ("Grade B")

        Case Is >= 60 

            Console.Writeline ("Grade C")

        Case else

            Console.Writeline ("Grade U")

        End Select

    End Sub

End Module