Imports System

Public Module Module1

    Public Sub Main()

        Dim Candidates as Decimal

        Dim Vote as Decimal

        Dim Voters as Decimal

        Dim Compared as Integer

        Dim TempName as String

        Dim Check as Integer

        'Task 1

        Console.WriteLine("Enter the number of candidates.")

        Candidates = Console.ReadLine - 1

        Do Until Candidates >=1 AND Candidates <= 3 AND Candidates mod 1 = 0

            Console.WriteLine("Invalid amount of candidates entered.")

            Candidates = Console.ReadLine - 1

        Loop

        Dim Votes(Candidates) as Integer

        Dim Names(Candidates) as String

        Console.WriteLine("Enter the number of voters.")

        Voters = Console.ReadLine - 1

        Do Until Voters >=-1 AND Voters <= 29 AND Voters mod 1 = 0

            Console.WriteLine("Invalid amount of voters entered.")

            Candidates = Console.ReadLine - 1

        Loop

        For i = 0 To Candidates

            Console.WriteLine("Enter the name of a candidate.")

            Names(i) = Console.ReadLine()

            Do Until Check = i

                If Names(i) = Names(Check) Then

                    Do Until Names(i) <> Names(Check)

                        Console.WriteLine("Invalid name.")

                        Names(i) = Console.ReadLine()

                    Loop

                    Check = 0

                Else

                    Check = Check + 1

                End If

            Loop

            Check = 0

        Next

        For i = 0 to Candidates

            Console.WriteLine(i + 1 & " " & Names(i))

        Next

        'Task 2

        For i = 0 To Voters

        Console.WriteLine("Enter candidate number to vote for.")

        Vote = Console.ReadLine()

            Do Until Vote mod 1 = 0 AND Vote >= 1 AND Vote <= Candidates + 1

                Console.WriteLine("Invalid vote.")

                Vote = Console.ReadLine()

        Loop

        Console.WriteLine("Vote entered for: " & Names(Vote - 1))

        Votes(Vote - 1) = Votes(Vote - 1) + 1

        Next

        'Task 3

        Compared = Candidates - 1

        For Count = 0 To Candidates

            For i = 0 To Compared

                If Votes(i) < Votes(i + 1) Then

                    Votes(i) = Votes(i) + Votes(i + 1)

                    Votes(i + 1) = Votes(i) - Votes(i + 1)

                    Votes(i) = Votes(i) - Votes(i + 1)

                    TempName = Names(i)

                    Names(i) = Names(i + 1)

                    Names(i + 1) = TempName

                End If

            Next

            Compared = Compared - 1

        Next

        For i = 0 To Candidates

            Console.WriteLine(Names(i) & " received " & Votes(i) & " votes. ")

        Next

        If Votes(0) > Votes(1) Then

            Console.WriteLine("NEW CLASS CAPTAIN: " & Names(0))

        Else

            Console.WriteLine("NO OVERALL WINNER.")

        End If

    End Sub

End Module