Module additionMatrices

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

            Next
        Next
        For i = 0 To 1
            For j = 0 To 2
                Console.Write(ar1(i, j) & vbTab)
            Next
            Console.Write(vbCrLf)
        Next


        Dim ar2 As Integer(,)
        ar2 = New Integer(1, 2) {}

        For i = 0 To 1
            For j = 0 To 2
                ar2(i, j) = Console.ReadLine()

            Next
        Next
        For i = 0 To 1
            For j = 0 To 2
                Console.Write(ar2(i, j) & vbTab)

            Next
            Console.Write(vbCrLf)
        Next

        For i = 0 To 1
            For j = 0 To 2
                Console.Write(ar1(i, j) + ar2(i, j) & vbTab)
            Next
            Console.Write(vbCrLf)
        Next
    End Sub

End Module