Sub Program1()
Dim n As Integer
Dim m As Integer
Dim A() As Integer
Dim A1() As Integer
Dim B() As Integer
Dim B1() As Integer
Dim B2() As Integer
Dim A2() As Integer
Dim max As Integer
Dim i As Integer
Dim j As Integer
Dim min As Integer
Dim k As Integer
Dim sled As Integer
Dim mol As Double




n = InputBox("vvedite kolvo strok matrisu A")
m = InputBox("vvedite kolvo stolbov matrisu A")

If n > m Then
ReDim A2(1 To n, 1 To n) As Integer
ReDim B2(1 To n, 1 To n) As Integer
max = n
min = m
Else
ReDim A2(1 To m, 1 To m) As Integer
ReDim B2(1 To m, 1 To m) As Integer
max = m
min = n
End If


ReDim A(1 To n, 1 To m) As Integer
ReDim A1(1 To m, 1 To n) As Integer
ReDim B(1 To m, 1 To n) As Integer
ReDim B1(1 To n, 1 To m) As Integer


For i = 1 To n
 For j = 1 To m
  A(i, j) = InputBox("vvedite A")
  Next
  Next



For i = 1 To m
 For j = 1 To n
  B(i, j) = InputBox("vvedite B")
  Next
  Next


For i = 1 To n
 For j = 1 To m
 A1(j, i) = A(i, j)
 Next
 Next


 For i = 1 To m
 For j = 1 To n
 B1(j, i) = B(i, j)
 Next
 Next


  For i = 1 To max
 For j = 1 To max
 For k = 1 To min
 A2(i, j) = A2(i, j) + A1(i, k) * A(k, j)
 Next
 Next
 Next

  For i = 1 To min
 For j = 1 To min
 For k = 1 To max
  B2(i, j) = B2(i, j) + B1(i, k) * B(k, j)
  Next
  Next
  Next


 For i = 1 To max
 For j = 1 To max
 If i = j Then
 sled = sled + A2(i, j)
 End If
 Next
 Next


 For i = 1 To min
 For j = 1 To min
 mol = mol + B2(i, j) * B2(i, j)
 Next
 Next

 mol = Sqr(mol)
 mol = mol - sled
 MsgBox "otvet=" & mol

End Sub