1 program inv_rd;
   2 uses mtx09;
   3 var r: mtx; d:double;
   4 begin
   5   tra;
   6   equ(r,'1 2 0; 3 2 1; 1 0 3');
   7   inv(r,d)
   8 end.
   9 {
  10 # equ [3,3]
  11 1   2   0
  12 3   2   1
  13 1   0   3
  14 
  15 # (mat)inv [3,3]
  16 -0.600000   0.600000   -0.200000
  17 0.800000   -0.300000   0.1000000
  18 0.200000   -0.200000   0.400000
  19 
  20 }