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 }