Imports System

Public Module Module1

    Public Sub Main()

        Dim mark as integer 

        Dim another as char= "Y"

        Do while another = "Y"

            Console.WriteLine("enter you garde mark")

            Mark = console.ReadLine()

            Console.WriteLine ("your mark is "& mark)

            If mark >=80 then 

                Console.WriteLine(" you have achived an A grade!")

            Else if mark >=70 then

                    Console.WriteLine("you have achived a B grade ")

            Else if mark >=60 then

                    Console.WriteLine("you have achived a C grade ")

            Else if mark >=50 then

                    Console.WriteLine("you have achived a D grade ")

            Else if mark >=40 then

                    Console.WriteLine("you have achived a E grade ")

            Else if mark <=40 then

                    Console.WriteLine("you have achived an F grade! ")

            END if

                    Console.WriteLine("Would you like to enter anothr mark?Y or N ?")

                    another=Console.Readline()

                            Loop

                            Console.WriteLine (" Goodbye ")

    End Sub

End Module