funcao le_matriz (ent, l, c):
    int i, j
    vetor(real, l, c) a
    para i em (0..l):
        para j em (0..c):
            leia a[i][j]
    retorne a

funcao determinante3x3 (m): vetor(real, 3, 3)
    d <- (m[0][0] * m[1][1] * m[2][2] +
          m[0][1] * m[1][2] * m[2][0] +
          m[0][2] * m[1][0] * m[2][1] -
          m[0][2] * m[1][1] * m[2][0] -
          m[0][1] * m[1][0] * m[2][2] -
          m[0][0] * m[1][2] * m[2][1])
    retorne d

vetor(real, 3, 3) a

a <- le_matriz(ent, 3, 3)

mostre determinante3x3(a)