Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Hello World")

        dim mark as integer 

        console.writeline ("enter mark", mark)

        IF mark > 49 then 

            console.ReadLine(Pass) 

        ELSE

        IF mark < 50 then 

            console.Readline (Fail) 

            End Sub

End Module