Imports System

Public Module Module1

    Public Sub Main()

        dim marks as string

        Console.WriteLine("Enter mark")

        marks = console.readLine()

        if marks >80 then

            console.writeLine("Distinction")

        elseif marks >65 then

            console.writeLine("merit")

        elseif marks >40 then

            console.writeLine("Passed")

        else

            console.writeLine("Failed")

        End if

    End Sub

End Module