1 program equrxa;
   2 uses mtx09;
   3 var a,b:mtx;
   4 begin
   5   tra;
   6   equ(a,'1 2 3; 4 5 6');
   7   equ(b,1.0/3.0,a)
   8 end.
   9 {
  10 # equ [2,3]
  11 1   2   3
  12 4   5   6
  13 
  14 # equ [2,3] [2,3]
  15 0.333333   0.333333   0.333333
  16 0.333333   0.333333   0.333333
  17 
  18 }