Imports System

Public Module Module1

    Public Sub Main()

        dim TutorGroup as String 

        dim NoOfStudents as Integer 

        dim NoOfCandidates as Integer

        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()

        If NoOfCandidates > 4 then 

            Console.Writeline("That is not a valid input")

        Elseif NoOfCandidates < 0 then 

            Console.Writeline("That is not a valid input")

        End If

        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

    End Sub

End Module