Imports System

Public Module Module1

    Public Sub Main()

        dim q(10), a(10), r as string

        dim c as integer

        q(1) = "garnet with earth"

        q(2) = "agate with marble"

        q(3) = "marble with onyx"

        q(4) = "marine with jade"

        q(5) = "topaz with marble"

        q(6) = "rust with garnet"

        q(7) = "rust with earth"

        q(8) = "topaz with jade"

        q(9) = "verdigris with jase and moss"

        q(10) = "caly with rust and cinnabar"

        a(1) = "deep red"

        a(2) = "warm white"

        a(3) = "slate gray"

        a(4) = "seaside blue"

        a(5) = "pale yellow"

        a(6) = "deep rust"

        a(7) = "sienna"

        a(8) = "cahrtruses"

        a(9) = "spring green"

        a(10) = "rusted earth"

        for i=1 to 10

        console.WriteLine(i & ". What color will you get if you mix " & q(i) & "?")

        r = console.readline()

        if r = a(i) then

            console.WriteLine("Correct.")

            c=c +1

        else

            console.WriteLine("The correst answer is " & a(i) & ".")

        end if

    next i

    console.WriteLine("You've got " & c & " correct.")

    End Sub

End Module