Matriz Simétrica em Portugol - Um programa Portugol que testa se uma matriz quadrada é uma matriz simétrica - Desafio de Programação Resolvido em Portugol

Elemento na linha 1 e coluna 1: 5
Elemento na linha 1 e coluna 2: 1
Elemento na linha 1 e coluna 3: 2
Elemento na linha 2 e coluna 1: 1
Elemento na linha 2 e coluna 2: 6
Elemento na linha 2 e coluna 3: 3
Elemento na linha 3 e coluna 1: 2
Elemento na linha 3 e coluna 2: 3
Elemento na linha 3 e coluna 3: 8

5 1 2 
1 6 3 
2 3 8 

A matriz informada é uma matriz simétrica.

// Matriz simétrica em Portugol
programa {
  funcao inicio() {
    // variáveis usadas na resolução do problema
    inteiro n = 3 // ordem da matriz quadrada
    inteiro matriz[n][n]
    logico simetrica = verdadeiro
  
    // vamos pedir para o usuário informar os valores
    // dos elementos da matriz, uma linha de cada vez
    para (inteiro i = 0; i < n; i++) { 
      para (inteiro j = 0; j < n; j++) {
        escreva("Linha ", (i + 1), " e coluna ", (j + 1), ": ")
        leia(matriz[i][j])
      }
    }

    // agora verificamos se a matriz é simétrica
    para (inteiro i = 0; ((i < n) e simetrica); i++) {
      para (inteiro j = 0; ((j < n) e simetrica); j++) {
        // os elementos em posicoes simetricas sao iguais?
        se (matriz[i][j] != matriz[j][i]) {
          simetrica = falso
        }
      }
    }

    // vamos mostrar a matriz da forma que ela foi informada
    escreva("\nValores na matriz:\n\n")
    para (inteiro i = 0; i < n; i++) {
      para (inteiro j = 0; j < n; j++) {
        escreva(matriz[i][j], "   ")
      }
      // passa para a próxima linha da matriz
      escreva("\n")
    }
  
    se (simetrica) {
      escreva("\nA matriz informada é uma matriz simétrica.")
    }
    senao {
      escreva("\nA matriz informada não é uma matriz simétrica.") 
    }
  }
}