1 program inv_rad;
   2 uses mtx09;
   3 var
   4   a, r: mtx;
   5   d:double;
   6 begin
   7   equ(a,'1 2 0; 3 2 1; 1 0 3');
   8   mwr(a);
   9   inv(r,a,d);
  10   mwr(r);
  11   mwr(d);
  12   inv(a,r,d);
  13   mwr(a)
  14 end.
  15 {
  16 1   2   0
  17 3   2   1
  18 1   0   3
  19 
  20 -0.600000   0.600000   -0.200000
  21 0.800000   -0.300000   0.1000000
  22 0.200000   -0.200000   0.400000
  23 
  24 -10.0000
  25 
  26 1   2   0
  27 3   2   1
  28 1   -4.16334E-17   3
  29 
  30 }