Imports System

Public Module Module1

    Public Sub Main()

        dim TutorGroup as String 

        dim NoOfStudents as Integer 

        dim NoOfCandidates as Integer = 0

        dim Answer as String

        dim Vote as String 

        dim NoOfVotes as Integer 

        dim count as Integer 

        Console.Writeline("Hello, please enter the name of the tutor group")

        TutorGroup = Console.Readline() 

        Console.Writeline("Please enter the number of pupils in " & TutorGroup)

        NoOfStudents = Console.Readline()

        Console.Writeline("Please enter the number of candidates running")

        NoOfCandidates = Console.Readline()

        do

            Console.WriteLine("Enter the number of candidates (between 1 and 4)")

            NoOfCandidates = console.readline()

        loop until NoOfCandidates > 1 And NoOfCandidates < 5

        console.writeline("You chose " & NoOfCandidates & " candidates." )

        dim NamesOfCandidates(NoOfCandidates) as String 

        Console.Writeline("Please enter the names of the candidates")

        For count = 0 To NoOfCandidates-1

        NamesOfCandidates(count) = Console.Readline()

    next count

    NamesOfCandidates(1) = "1"

    NamesOfCandidates(2) = "2"

    NamesOfCandidates(3) = "3"

    NamesOfCandidates(4) = "4"

    End Sub

End Module