Module Module1
    Function czyjest(ByVal n As Double, ByRef x() As Double, ByVal z As Double) As Double

        If n < 0 Then
            Return n
        ElseIf x(n) = z Then
            Return n
        Else
            Return czyjest(n - 1, x, z)
        End If

    End Function

    Sub Main()

        Dim x(100), n, z As Double


        Console.WriteLine("podaj ilosc elementow: ")
        n = Console.ReadLine()

        For i = 1 To n
            Console.WriteLine("podaj element nr{0}: ", i)
            x(i) = Console.ReadLine()
        Next

        Console.WriteLine("podaj szukany element: ")
        z = Console.ReadLine()

        Console.WriteLine("Pozycja: {0}", czyjest(n, x, z))

        Console.ReadKey()


    End Sub

End Module