O programa abaixo calcula o produto de duas matrizes 3 por 3. Matriz do PROGRAMA (Entrada, Saída); VAR A, B, C: ARRAY [1..3, 1..3] DE Inteiro; Arow, Coluna, Sobrancelha, Coluna, I, J, K, SUM: Inteiro; INÍCIO Write ('': 4O, 'MATRIX MULTIPLICATION PROGRAM'); Write ('': 4O, '-----------------------------'); Escrita;} Writeln ('Digite o número de linhas da matriz A'); Readln (Arow); Writeln ('Digite o número de COLUNAS da Matriz A'); Readln (AColumn); Writeln ('Digite o número de ROWS da Matriz B'); Readln (Brow); Writeln ('Digite o número de COLUNAS da Matriz B'); Readln (BColumn); Writeln (); SE (AColumn = Brow) ENTÃO INÍCIO Writeln ('Insira os elementos da Matriz A'); Para I: = 1 a 3 DO Para J: = 1 a 3 DO Readln (A [I, J]); Writeln ('Insira os elementos da Matriz B'); Para I: = 1 a 3 DO Para J: = 1 a 3 DO < Readln (B [I, J]); Escrita; {Exibir os elementos da matriz A} Writeln ('MATRIX A'); Writeln ('--------'); Para eu: = 1 a 3 DO INÍCIO Para J: = 1 a 3 DO Escreva (A [I, J]: 3); Escrita; FIM; Escrita; {Exibir os elementos da matriz B} Writeln ('MATRIZ B'); Writeln ('--------'); Para eu: = 1 a 3 DO INÍCIO Para J: = 1 a 3 DO Escreva (B [I, J]: 3); Escrita; FIM; Escrita; {Compute o Produto das Matrizes A e B} Para I: = 1 a 3 DO Para J: = 1 a 3 DO INÍCIO SUM: = 0; Para K: = 1 a 3 DO SUM: = SUM + A [I, K] * B [K, J]; C [I, J]: = SUM; FIM; Escrita; {Exibir o produto das matrizes A e B} Writeln ('MATRIX AB'); Writeln ('---------'); Escrita; Para eu: = 1 a 3 DO INÍCIO Para J: = 1 a 3 DO Escreva (C [I, J]: 5); Escrita; FIM; FIM OUTRO Writeln ('Matriz A e B não podem ser multiplicadas. Insira Matrices na ordem mxn e nx p'); Writeln (); Writeln ('PRESSIONE A TECLA ENTER PARA SAIR'); Readln; FIM.