Imports System

Public Module Module1

    Public Sub Main()

        dim StudentMark as integer 

        dim MaxMark as integer

        dim Percentage as decimal

        console.writeline ("Enter the student mark, please")

        StudentMark = console.readline()

        console.writeline ("Enter the maximum mark, please")

        MaxMark = console.readline()

        Percentage = StudentMark/MaxMark * 100

        Percentage= Math.Round(Percentage, 1)

        Select Case Percentage

        Case Is >= 80

            Console.writeline ("The grade is A, with " & Percentage & "%")

        Case Is >= 70

            Console.writeline ("The grade is B, with " & Percentage & "%")

        Case Is >= 60

            Console.writeline ("The grade is C, with " & Percentage & "%")

        Case Else

            Console.writeline ("The grade is U, with " & Percentage & "%")

        end select

    End Sub

End Module