Imports System

Public Module Module1

    Public Sub Main()

        Task1()

    End Sub

    Public Sub Task1()

    Dim TutorGroup as String

    Dim nStudents as Integer

    Dim nCandidates as Integer

    Dim temp as string

    Dim CandidateNames(4) as String

    Dim CandidateVotes(4) as Integer

    Dim n, m as Integer

        Console.Writeline("Please Enter the Name of the Tutor Group")

        TutorGroup = Console.Readline()

        Console.Writeline("Please enter the Number Of Students in your Turtor Group")

        temp = Console.Readline()

        Do WHile Not Integer.TryParse(temp, nStudents)

            Console.Writeline("Please enter a whole number. Please re-enter the Number of Students")

            temp = Console.Readline()

        Loop

        Console.Writeline("Please enter the Number Of Candidates: 1-4")

        temp = Console.Readline()

        Do WHile Not (Integer.TryParse(temp, nCandidates) AND nCandidates >= 1 AND nCandidates <= 4 )

            Console.Writeline("Please enter a Valid Answer within the Range of 1-4. Please re-enter the Number of Students")

            temp = Console.Readline()

        Loop

        For n = 1 to nCandidates

            Console.Writeline("Please enter the name of Candidate " & n)

            CandidateNames(n) = Console.Readline()

        Next

            CandidateNames(0) = "Abstentions"

        For n = 0 to 4

            CandidateVotes(n) = 0

        Next

    End Sub

End Module