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