Eis o programa em VisualG
agora com fonte em anexo em txt.
algoritmo "determinante"
// Função :
//
// Data : 28/11/2017
// Seção de Declarações 
var
     A : vetor [1..3, 1..3] de real
     i,j : inteiro
     det : real
     
inicio
// Seção de Comandos 
// os comandos aletoria servem para evitar a digitação
// se quiser digitar os 9 elementos basta comentar os comandos aleatorio
//
aleatorio on
aleatorio -30,100
//
// ler os 9 elementos
para i de 1 ate 3 faca
  para j de 1 ate 3   faca
      leia(A[i,j]
  fimpara
fimpara
// desliga a aleatorizacao
aleatorio off

// exibe a matriz
para i de 1 ate 3 faca
  para j de 1 ate 3    faca
      escreva((A[i,j]):4 ) // escreve na mesma linha
  fimpara
  escreval()
fimpara

det <- A[1,1]*A[2,2]*A[3,3] + A[1,2]*A[2,3]*A[3,1] + A[1,3]*A[2,1]*A[3,2]
det <- det - A[1,3]*A[2,2]*A[3,1] -A[1,1]*A[2,3]*A[3,2]-A[1,2]*A[2,1]*A[3,3]
escreval("O determinante é ",det )

// para testar esse programa e verificar se o determinante está correto
// visite www.wolframalpha.com e digite (por exemplo)
// determinant of {{-20,63,-19},{1,16,-7},{40,40,15}}
// esse site irá calcular o determinant da matriz
// -20  63 19
// 1   16 -7
// 40   40 15
fimalgoritmo