Calculando determinante 3x3 pascal

Calculando determinante 3x3 pascal

Continuando con las matrices ahora mostrare el código con el cual podrían calcular la determinante3x3 para que entiendan el tema
Les dejo este vídeo donde explican como encontrarlas:

Determinante de una matriz 3X3:

aqui el codigo:

Program appletenhtml (input,output); 



uses
 crt; 
Var
 a00,a01,a02,a10,a11,a12,a20,a21,a22,total: Integer;
 
Begin
 {
 /*
               !a00 a10 a20! l2a00 l2a10
               !a01 a11 a21! l2a01 l2a11
               !a02 a12 a22! l2a02 l2a12
          

 */

 }
  writeln('Ingrese valores');
  writeln('|a00 a01 a02|');
  writeln('|a10 a11 a12|');
  writeln('|a20 a21 a22|');

  writeln('Ingrese el valor de a00: ');
  readln(a00);
  writeln('Ingrese el valor de a01: ');
  readln(a01);
  writeln('Ingrese el valor de a02: ');
  readln(a02);
  writeln('Ingrese el valor de a10: ');
  readln(a10);
  writeln('Ingrese el valor de a11: ');
  readln(a11);
  writeln('Ingrese el valor de a12: ');
  readln(a12);
  writeln('Ingrese el valor de a20: ');
  readln(a20);
  writeln('Ingrese el valor de a21: ');
  readln(a21);
  writeln('Ingrese el valor de a22: ');
  readln(a22);
  
   total:=a00*a11*a22 + a10*a21*a02 +a20*a01*a12;
   total:=total+(a02*a11*a20)*-1 + (a12*a21*a00)*-1 + (a22*a01*a10)*-1;
    
  if(total <> 0) then begin
  writeln('El total del det. es: ',total);
  end;
  
  if(total = 0) then begin
  writeln('Error el det. da 0');
  end;
    
 readkey;
End.

Descargar ejemplo:

determinante 3x3 pascal 

Turbo Pascal