1 program dvd_rab3;
   2 uses mtx09;
   3 var r, a, b: mtx;
   4 begin
   5   tra;
   6   equ(a,'1,2,3;4,5,6');
   7   equ(b,'10;20');
   8   dvd(r,a,b);
   9   dvd(r,b,a)
  10 end.
  11 {
  12 # equ [2,3]
  13 1   2   3
  14 4   5   6
  15 
  16 # equ [2,1]
  17 10
  18 20
  19 
  20 # dvd [2,3] [2,3] [2,1]
  21 0.100000   0.200000   0.300000
  22 0.200000   0.250000   0.300000
  23 
  24 # dvd [2,3] [2,1] [2,3]
  25 10   5   3.33333
  26 5   4   3.33333
  27 
  28 }