Imports System

Public Module Module1

    Public Sub Main()

        Dim name(13) as String

        Dim score(13) as Integer

        For i = 1 to 13

        Console.WriteLine("Please enter the name of the first student")

        name(i) = Console.ReadLine()

        Console.WriteLine("Please enter the score of the first student (without the percentage symbol)")

        name(i) = Console.ReadLine()

        Next

    End Sub

End Module