Imports System

Public Module Module1

    Public Sub Main()

        dim score as integer

        dim result as string

        console.WriteLine("have you done the work?")

        result = console.readline()

        if result = "no" then

            console.writeline("detention")

        if result = "Yes" then

            console.writeline("merit, what was the score?")

                score = console.ReadLine()  

            if score >80 then

            console.WriteLine("distinction")

    End Sub

End Module