Module Module1

    Sub main()
        'Dim str As String() = {1, 2, 3, 4, 5}

        Dim user2 = Split(Console.ReadLine(), " ")
        Dim lista2 As Long() = Array.ConvertAll(user2, Function(j As String) CLng(j))
        Dim suretsu = New List(Of Long)(lista2)

        Dim result As Integer

        For i = 0 To suretsu.Count - 1
            If suretsu(i) = 0 Then result = i + 1
        Next

        Console.WriteLine(result)

    End Sub
  end module