Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Hello World")

        dim mark as integer

        console.writeline("Enter the mark")

        mark = console.ReadLine()

        if mark >= 50 then

            console.writeline("Pass")

        else console.writeline("Fair")

        end if 

    End Sub

End Module