Сделайте произвольную матрицу 3х3 и посчитайте ее определитель

// PascalABC.Net

begin

   var m:= MatrRandom(3, 3);

   m.Print();

   var det:= m[0,0]*m[1,1]*m[2,2] +  

           m[0,2]*m[1,0]*m[2,1] +

           m[0,1]*m[1,2]*m[2,0] -

           m[0,2]*m[1,1]*m[2,0] -

           m[0,0]*m[1,2]*m[2,1] -

           m[0,1]*m[1,0]*m[2,2];

   writeln('Определитель: ', det);

end.