A={{1,2,1,3},{2,1,-1,1},{-1,3,1,-2},{1,0,2,3}};
MatrixRank[A]
Det[A]