Imports System.console

Public Module Module1

     Function funkcija(ByVal prvi As Integer(), ByVal drugi As Integer()) As Integer()

        Dim treci As Integer() = New Integer(3) {}

        For i = 0 To prvi.GetUpperBound(0)

            If prvi(i) = drugi(i) Then

                treci(i) = prvi(i)

            End If

        Next

        Return treci

    End Function

    Public Sub Main()

     Dim rezultat As Integer() = New Integer(3) {}

        Dim prvi As Integer() = New Integer(3) {}

        For i = 0 To 3

            WriteLine("1. niz,{0} broj", i + 1)

            prvi(i) = ReadLine()

        Next

        Dim drugi As Integer() = New Integer(3) {}

        For j = 0 To 3

            WriteLine("2. niz,{0} broj", j + 1)

            drugi(j) = ReadLine()

        Next

        WriteLine()

        rezultat = funkcija(prvi, drugi)

        For i = 0 To rezultat.GetUpperBound(0)

            WriteLine(rezultat(i))

        Next

    End Sub

End Module