1 program dvd_rap;
   2 uses mtx09;
   3 var r, a: mtx;
   4 begin
   5   tra;
   6   equ(a,'1,2,3;4,5,6');
   7   dvd(r,a,true);
   8   dvd(r,a,false)
   9 end.
  10 {
  11 # equ [2,3]
  12 1   2   3
  13 4   5   6
  14 
  15 # dvd [1,3] [2,3]
  16 0.250000   0.100000   0.0555556
  17 
  18 # dvd [2,1] [2,3]
  19 0.166667
  20 0.00833333
  21 
  22 }