1 program dvd_rax;
   2 uses mtx09;
   3 var
   4   r0, m1: mtx;
   5   x:double=2.0;
   6 begin
   7   tra;
   8   equ(m1,'1,2,3;4,5,6');
   9   dvd(r0,m1,x); // r0 = m1 + x
  10   dvd(r0,x,m1); // r0 = X + m1 (idem)
  11 end.
  12 {
  13 # equ [2,3]
  14 1   2   3
  15 4   5   6
  16 
  17 # dvd [2,3] [2,3] [1,1]
  18 0.500000   1   1.50000
  19 2   2.50000   3
  20 
  21 # dvd [2,3] [1,1] [2,3]
  22 2   1   0.666667
  23 0.500000   0.400000   0.333333
  24 
  25 }