Imports System
Public Module Module1
Public Sub Main()
dim marks as string
Console .WriteLine ( "enter mark")
marks = console.readline()
if marks>40 then
console .WriteLine("passed")
elseif marks >65 then
End Sub
End Module