1 program prd1;
   2 uses mtx09;
   3 var a, b:mtx;
   4 begin
   5   tra;
   6   equ(a,'1,2,3;4,5,6');
   7   prd(b,a,trp(a))
   8 end.
   9 {
  10 # equ [2,3]
  11 1   2   3
  12 4   5   6
  13 
  14 # prd [2,2] [2,3] [3,2]
  15 14   32
  16 32   77
  17 
  18 }