1
program
prd1;
2
uses
mtx09;
3
var
a, b:mtx;
4
begin
5
tra;
6
equ(a,
'1,2,3;4,5,6'
);
7
prd(b,a,trp(a))
8
end
.
9
{
10
# equ [2,3]
11
1 2 3
12
4 5 6
13
14
# prd [2,2] [2,3] [3,2]
15
14 32
16
32 77
17
18
}