1
program
lgn1;
2
uses
mtx09;
3
var
a: mtx;
4
begin
5
equ(a,
'1 2; 3 4; 5 6; 7 8; 9 10'
);
6
mwr(a);
7
mwr(lgn(a,
2
,
4
))
8
end
.
9
{
10
1 2
11
3 4
12
5 6
13
7 8
14
9 10
15
16
3 4
17
5 6
18
7 8
19
20
}