Imports System

Public Module Module1

    Public Sub Main()

        Dim score as integer

        Dim score1 as integer 

        Dim score2 as integer

        Dim score3 as integer

        Dim score4 as integer

        Dim score5 as integer

        Console.WriteLine("Input Score")

        Console.Readline=Score

        Console.Writeline("")

    End Sub

End Module