<<VilGebra`

Solve[Det[{{1,0,-3,0},{2,k,-1,1},{1,2,k,0},{k,1,0,-1}}]==0,k]