Imports System. Console

Public Module Module1

    Public Sub Main()

        dim userinput as integer 

        dim useranswer as integer

        dim answer as integer

        WriteLine("What number do you want. 1, 2 or 3")

        userinput = readline()

        if userinput = 1 then 

            checkanswer(answer, useranswer)

        else if userinput = 2 then

                Writeline("Good choice!!!")

            else if userinput = 3 then

                    writeline("5 press ups")

                else

                    writeline("CHOOSE 1, 2 or 3")

        end if

        main()

    End Sub

            sub checkanswer(answer, useranswer)

            writeline("what is 7*8")

            useranswer = readline()

            answer = 7*8

                if answer = useranswer then 

                writeline("correct!")

                else 

                writeline("incorrect")

            end if

            end sub

End Module