1 program dvd_rab1;
   2 uses mtx09;
   3 var r0, m1, m2: mtx;
   4 begin
   5   tra;
   6   equ(m1,'1,2,3;4,5,6');
   7   equ(m2,'3,2,1;6,5,4');
   8   dvd(r0,m1,m2);
   9 end.
  10 {
  11 # equ [2,3]
  12 1   2   3
  13 4   5   6
  14 
  15 # equ [2,3]
  16 3   2   1
  17 6   5   4
  18 
  19 # dvd [2,3] [2,3] [2,3]
  20 0.333333   1   3
  21 0.666667   1   1.50000
  22 
  23 }