Imports System

Public Module Module1

    Public Sub Main()

        dim Alist(9) as integer

        dim a as integer = 0

        for i = 0 to 9

        Alist(i) = i ^ 2

        a = Alist(i) + a

        console.writeline(Alist(i))

        next

        console.writeline(a)

    End Sub

End Module