Imports System

Public Module Module1

    Public Sub Main()

        dim num as integer

        Console.WriteLine("• The points rolled on each player’s dice are added to their score.")

            Console.WriteLine(" If the total is an even number, an additional 10 points are added to their score. ")

            Console.WriteLine   ("• If the total is an odd number, 5 points are subtracted from their score. ")

                Console.WriteLine   ("• If they roll a double, they get to roll one extra die and get the number of points rolled added to their score.")

                        Console.WriteLine       ("• The score of a player cannot go below 0 at any point. ")

                        Console.WriteLine       ("• The person with the highest score at the end of the 5 rounds wins. ")

                    Console.WriteLine(" • If both players have the same score at the end of the 5 rounds, they each roll 1 die and whoever gets the highest score wins (this repeats until someone wins). Only authorised players are allowed to play the game. Where appropriate, input from the user should be validated.")

        Console.WriteLine(" You can only play if you can answer this question: What comes between 3 and 5")

        num = Console.readline

        if num = "4" then

            console.writeline("correct")

        else if num = "29"

                console.writeline("Oh dear...")

            else console.WriteLine("ERROR")

            END IF

    End Sub

End Module