A = {{1, 2, 3}, {3, 2, 1}, {1, 2, 1}};
Print["A=", MatrixForm[A]];

Print["Det[A]=", Det[A]];

Print["Rank[A]=", MatrixRank[A]];

B = {{3, 1, 2}, {6, 2, 4}, {1, 2, 2}};
Print["A=", MatrixForm[B]];

Print["Det[B]=", Det[B]];

Print["Rank[B]=", MatrixRank[B]];