Imports System

Public Module Module1

    Public Sub Main ()

    dim StuMark as integer 

    dim MaxMark as integer

        dim Percentage as integer 

    Console.WriteLine("Enter Student Mark")

    StuMark = Console.ReadLine()

    Console.WriteLine("Enter Maximum Mark")

    MaxMark = Console.ReadLine()

    Percentage = StuMark/MaxMark*100

    If Percentage >= 80 Then

        Console.WriteLine("Grade A")

    ElseIF Percentage >= 70 THEN

        Console.WriteLine("Grade B")

    ElseIF Percentage >= 60 THEN

        Console.WriteLine("Grade C")

    Else Console.WriteLine("Grade U")

    End IF

    End Sub

End Module