Imports System

Public Module Module1

    Public Sub Main()

        Dim StudentMarks As Integer = 0

        Dim MaxMarks As Integer = 0

        Dim Percentage As Decimal = 0

        Console.WriteLine("Enter Student Marks")

        StudentMarks = Console.ReadLine()

        Console.WriteLine("Enter Maximum Mark")

        MaxMarks = Console.ReadLine()

        Percentage = (StudentMarks/MaxMarks)*100

        Percentage = Math.Round(Percentage,1)

        Select Case Percentage

        Case Is >= 80

            Console.WriteLine("Grade A, "& Percentage & "%") 

        Case Is >= 70

            Console.WriteLine("Grade B, "& Percentage & "%")

        Case Is >= 60

            Console.WriteLine("Grade C, "& Percentage & "%") 

        Case Else

            Console.WriteLine("Grade U, "& Percentage & "%")

        End Select

    End Sub

End Module