1 program col1;
   2 uses mtx09;
   3 var
   4   a: mtx;
   5 begin
   6   equ(a,'0 1 2 3 4; 5 6 7 8 9');
   7   mwr(a);
   8   mwr(col(a,2));      // a(:,2)
   9   mwr(col(a,2,4));    // a(:,2:4)
  10   mwr(col(a,col(a))); // a(:,$)
  11 end.
  12 {
  13 0   1   2   3   4
  14 5   6   7   8   9
  15 
  16 1
  17 6
  18 
  19 1   2   3
  20 6   7   8
  21 
  22 4
  23 9
  24 
  25 }