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
}