Создать программу для перемножения двух матриц и вывода на экран результирующей матрицы.

for k=1 to n                             
for j=1 to n                              
    m3(k,j)=0;                            
      for i=1 to n                           
      m3(k,j):=m3(k,j)+(m(k,j)*m(i,j));
next
next
next

input m,n
dim a(m,n)
input p
dim b(n,p)

CLS
PRINT "Multiplying matrices"
INPUT "Enter the dimension of the matrices A ",m,n
PRINT "Enter the matrix A"
FOR i = 1 TO m
        FOR j = 1 TO n
                PRINT "a("; i;" "; j; ")="; 
                INPUT a(i, j)
        NEXT 
NEXT 
PRINT "The matrix A introduced"
FOR i = 1 TO m
  FOR j = 1 TO n
   PRINT a(i,j);" "; 
   NEXT 
print
NEXT
do
INPUT "Enter the dimension of the matrices b ",n1,p
if n1<>n then print "etot razmer nevozmojen"
loop until n1=n
PRINT "Enter the matrix b"
FOR i = 1 TO n
   FOR j = 1 TO p
    PRINT "b("; i;" "; j; ")="; 
        INPUT b(i, j)
        NEXT 
NEXT 
PRINT "The matrix b introduced"
FOR i = 1 TO m
  FOR j = 1 TO n
   PRINT b(i,j);" "; 
   NEXT 
print
NEXT
for i:=1 to m do
        FOR j = 1 TO n
                FOR k = 1 TO n
                c(i, j) = c(i, j) + a(i, k) * b(k, j)
                NEXT 
        NEXT 
NEXT 
PRINT "The product A * B"
FOR i = 1 TO m
        FOR j = 1 TO n
        PRINT c(i, j);
        NEXT 
NEXT

PRINT "The product A * B"
FOR i = 1 TO m
        FOR j = 1 TO n
        PRINT c(i, j);"  ";
        NEXT
print 
NEXT

RANDOMIZE TIMER
PRINT "Razmery matricy A:"
INPUT " Kolichestvo strok ka=", ka
INPUT " 'Kolichestvo stolbcov la=", la
 
PRINT "Razmery matricy D:"
INPUT "Kolichestvo strok kd=", kd
DO
INPUT "Kolichestvo stolbcov ld=", ld
LOOP UNTIL ld = ka'количество столбцов второй матрицы должно быть равно количеству строк первой'
PRINT "Matrica A:"
FOR i = 1 TO ka
  FOR j = 1 TO la
       A(i, j) = INT(RND * 9) + 1
         PRINT A(i, j); " ";
       NEXT
     PRINT
   NEXT
 
PRINT "Matrica D:"
FOR i = 1 TO kd
    FOR j = 1 TO ld
     d(i, j) = INT(RND * 9) + 1
         PRINT d(i, j); " ";
       NEXT
     PRINT
   NEXT
 
FOR r = 1 TO ka
FOR j = 1 TO ld
    U(r, j) = 0
     FOR i = 1 TO la
       U(r, j) = U(r, j) + A(r, i) * d(i, j)
       NEXT
   NEXT
NEXT
PRINT "Matrica U=A*D:"
FOR i = 1 TO ka
     FOR j = 1 TO ld
      PRINT U(i, j); " ";
      NEXT
    PRINT
NEXT