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