Module MaxinMatrix

    Sub Main()
        Dim ar1 As Integer(,)
        ar1 = New Integer(1, 1) {}
        Dim i, j, max As Integer
        For i = 0 To 1
            For j = 0 To 1
                ar1(i, j) = Console.ReadLine()

            Next
        Next
        For i = 0 To 1
            For j = 0 To 1
                Console.Write(ar1(i, j) & vbTab)
            Next
            Console.Write(vbCrLf)
        Next
        max = 0
        For i = 0 To 1
            For j = 0 To 1
                If max < ar1(i, j) Then
                    max = ar1(i, j)
                End If
            Next
        Next
        Console.WriteLine(max)



    End Sub

End Module