Imports System

Public Module Module1

    Public Sub Main()

        Dim StudentMarks As Integer

        Dim MaximumMarks As Integer

        Dim Percent As Decimal

        Console.WriteLine("Enter Student Marks")

        StudentMarks "Condole.ReadLine()

        Console.WriteLine("Enter Maximum Marks")

        MaximumMarks "Console.ReadLine()

        Percentage = StudentMarks / MaximumMarks * 100

        If Percent >= 8- Then

            Grade = "A"

        Else

            If Percemt >= 70 Then

                Grade = "B"

            Else

                If Percent >=60

                    Grade = "C"

                Else

                    Grade = "U"

                END If

            End If

        End If

        Console.WriteLine("Percentage = " & Percent & "&")

        Console.Write()Line("Grade = " & Grade)

    End Sub

End Module