Imports System

Public Module Module1

    Public Sub Main()

        dim name as string

        dim marks as integer

        console.writeline("Please Enter Your Name") 'Ouput

        name = console.readline() 'Input

        console.WriteLine("Please Enter Your Marks") 'Output

        marks = console.readline() 'Input

        if marks < 0 or marks > 20 then

            console.WriteLine("Invalid Marks")

        end if

        if marks >= 0 and marks <= 9 then

            console.WriteLine("You have Failed with " & marks)

        else if marks > 9 and marks <= 20 then

                console.WriteLine("You have Passed with " & marks)

        end if

    End Sub

End Module