1 program dia0;
   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   elm(dia(a),'-1,-2');
   9   mwr(a)
  10 end.
  11 {
  12 # equ [2,3]
  13 1   2   3
  14 4   5   6
  15 
  16 1   5
  17 
  18 # elm(mtx,string) [1,2]
  19 -1   -2
  20 
  21 -1   2   3
  22 4   -2   6
  23 
  24 }