Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Even and Odd total calculator")

        dim values,total1,total2 ,remainder as integer

        for i = 1 to 10

        values = console.ReadLine()

        remainder = values MOD 2

        if remainder = 0 then

        console.WriteLine("Even")

    else

        console.WriteLine("Odd")

        end if

    next

    total1 = total1 + remainder

    console.Writeline(total1

    End Sub

End Module