1 program dvd_ab;
   2 uses mtx09;
   3 var a, b: mtx;
   4 begin
   5   tra;
   6   equ(a,'10;20');
   7   equ(b,'1 2 3; 4 5 6');
   8   dvd(a,b);
   9   dvd(b,a)
  10 end.
  11 {
  12 # equ [2,1]
  13 10
  14 20
  15 
  16 # equ [2,3]
  17 1   2   3
  18 4   5   6
  19 
  20 # dvd [2,1] [2,3]
  21 1.66667
  22 0.166667
  23 
  24 # dvd [2,3] [2,1]
  25 0.600000   1.20000   1.80000
  26 24   30   36
  27 
  28 }