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