<<VilGebra`

A=(({{-3, 2, 2, 0}, {-2, 1, -2, 2}, {1, 0, -3, -1}, {0, -2, 2, -3}}));
Table[Det[SubMatriz[A,{i},{j}][[1]]],{i,4},{j,4}]
Table[(((-1))^(i+j))Det[SubMatriz[A,{i},{j}][[1]]],{i,4},{j,4}]
MatrizAdjunta[A]