Module Module1

    Sub Main()
'' вводим количество элементов массива
        Console.WriteLine("amount of elements in massive")
        Dim kol_zn As Integer = Convert.ToInt16(Console.ReadLine())
'' объявляем массив
        Dim massiv As New ArrayList()
'' вводим с клавиатуры массив
        For i As Integer = 0 To kol_zn - 1
            Console.WriteLine("write the element of massiv")
            massiv.Insert(i, Console.ReadLine())
        Next
''вводим номер, который нам нужно удалить и собственно удаляем его
        Console.WriteLine("What item number do you want to delete?")
        Dim num_del As Integer = Convert.ToInt32(Console.ReadLine())
        massiv.RemoveAt(num_del)
'' узнаем сколько теперь в массиве, в принципе это можно было не делать, но все-таки
        Dim kol_z As Integer = massiv.Count
'' выводим массив
        For i As Integer = 0 To kol_z - 1
            Console.WriteLine(i + 1 & " - " & massiv.Item(i))
        Next
        Console.ReadLine()
    End Sub

End Module

Module Module1

    Sub Main()
        Console.WriteLine("amount of elements in massive")
        Dim kol_zn As Integer = Convert.ToInt16(Console.ReadLine())
        Dim massiv As New ArrayList()
        For i As Integer = 0 To kol_zn - 1
            Console.WriteLine("write the element of massiv")
            massiv.Insert(i, Console.ReadLine())
        Next
        Dim m As Integer = kol_zn

        Do
            Dim data As Integer = Convert.ToInt32(massiv.Item(m - 1))
            If data = 0 Then
                massiv.RemoveAt(m - 1)

            End If
            data = 0
            m = m - 1
        Loop While m > 0

        Dim kol_z As Integer = massiv.Count
        For i As Integer = 0 To kol_z - 1
            Console.WriteLine(i + 1 & " - " & massiv.Item(i))
        Next
        Console.ReadLine()
    End Sub

End Module

arr=[1,2,3,4,5,0,0,1,2,3]
arr.pop(3)
print arr
print [i for i in arr if i!=0]