1 program dia01;
   2 uses mtx09;
   3 var a:mtx;
   4 begin
   5   tra;
   6   equ(a,'1 2 3; 4 5 6');
   7   mwr(dia(a))
   8 end.
   9 {
  10 # equ [2,3]
  11 1   2   3
  12 4   5   6
  13 
  14 1   5
  15 
  16 }