Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Hello World")

        dim Mark as integer

        Mark=0

            console.WriteLine("Enter Mark")

        Mark=console.ReadLine()

        If Mark>=80 and Mark<=100 Then 

            console.WriteLine("A")

        End if

        If Mark>=60 and Mark<=79 Then 

            console.WriteLine("B")

        End if

        If Mark>=50 and Mark<59 Then 

            console.WriteLine("C")

        End if

        If Mark>=0 and Mark<=49 Then 

            console.WriteLine("Fail")

        End if

    End Sub

End Module