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