Imports System

Public Module Module1

    Public Sub Main()

        'Task 1

        Dim age As Integer

        Console.WriteLine("What is your age?")

        Console.ReadLine()

         If 12 <= age <= 16 Then

            Console.WriteLine("Your age has been recorded.")

        Else

            Console.WriteLine("Error")

        End If

            Dim SchoolHouse As Integer

            Console.WriteLine("What is your school house? When are your school house is Saturn, please press 1 or when your school house is Mars, please press 2.") 

            SchoolHouse = Console.ReadLine()

            If 1 <= SchoolHouse <= 2 Then

            Console.WriteLine("Your school house has been recorded.")

        Else

            Console.WriteLine("Error")

        End If

        Dim ReactionTime As Integer

        Console.WriteLine("What is your reaction time?")

        If 1 <= ReactionTime <= 999 Then

            Console.WriteLine("Your reactiome has recorded.")

        Else

            Console.WriteLine("Error")

            End If

    End Sub

End Module