Cástenes

@DiF, esse código e de autoria minha.

Quero pegar essa base e modificar para fazer a questão que ta no titulo pois nao consigo fazer do 0

Algoritmo "semnome"
//
//
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 29/11/2019
Var
   simetrica: logico
   I: inteiro
   J: inteiro
   N: inteiro
   matrizA : vetor [1..5,1..5] de real
Inicio
   simetrica <- verdadeiro
   para I de 1 ate 5 faca
      para J de 1 ate 5 faca
         leia(matrizA[I,J])
      fimpara
   fimpara
   escreval("MATRIZ 1")
   simetrica <- verdadeiro
   para i de 1 ate 5 faca
      para j de 1 ate 5 faca
         escreva(matrizA[I,J]," ")
      fimpara
      escreval(" ")
   fimpara
   simetrica <- verdadeiro
   para I de 1 ate 5 faca
      para J de 1 ate 5 faca
         se ( matrizA[I,J] <> matrizA[J,I] ) ENTÃO
            simetrica <- falso
         fimse
      fimpara
      se ( simetrica = verdadeiro ) ENTÃO
         escreval ("A matriz é simétrica!")
      senao
         escreval("A matriz não é simétrica!")
      fimse
   fimpara
fimalgoritmo