<<VilGebra`

A={{-3,1,-(1/2),-2,-(1/3)},{(1/3),-(3/2),-(1/3),-3,1},{(2/3),-3,-(2/3),0,(3/2)},{-2,-2,2,-1,2},{-(2/3),-1,-(1/3),-1,1}};
SumaFila[A,-1/3*-1/3,1,2]
SumaFila[%,-1/3*-2/3,1,3]
SumaFila[%,-1/3*2,1,4]
SumaFila[%,-1/3*2/3,1,5]

SumaFila[%,-18/25*25/9,2,3]
SumaFila[%,-18/25*8/3,2,4]
SumaFila[%,-18/25*11/9,2,5]

IntercambiaFila[%,3,4]
SumaFila[%,25/77*-3/25,3,5]

SumaFila[%,1/6*-156/77,4,5]

Diagonal[%];
-1*Product[i,{i,%}]