1 program mul_rax;
   2 uses mtx09;
   3 var
   4   r, a: mtx;
   5   x:double=2.0;
   6 begin
   7   tra;
   8   equ(a,'1,2,3;4,5,6');
   9   mul(r,a,x);
  10   mul(r,x,a)
  11 end.
  12 {
  13 # equ [2,3]
  14 1   2   3
  15 4   5   6
  16 
  17 # mul [2,3] [2,3] [1,1]
  18 2   4   6
  19 8   10   12
  20 
  21 # mul [2,3] [1,1] [2,3]
  22 2   4   6
  23 8   10   12
  24 
  25 }