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