Решить 8 примеров - VB

Module Module1
    Sub Main()
        Dim n As Integer = Console.ReadLine
        Dim Massiv(n - 1) As Integer
        Dim Sum As Integer = 0
        For n = n - 1 To 0 Step -1
            Massiv(n) = Console.ReadLine
            If Massiv(n) > 0 Then
                Sum += Massiv(n)
            End If
        Next
        Console.WriteLine(Sum)
        Console.ReadKey()
    End Sub
End Module