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