1
program
mul_rap;
2
uses
mtx09;
3
var
r, a: mtx;
4
begin
5
tra;
6
equ(a,
'1,2,3;4,5,6'
);
7
mul(r,a,
true
);
8
mul(r,a,
false
)
9
end
.
10
{
11
# equ [2,3]
12
1 2 3
13
4 5 6
14
15
# mul [1,3] [2,3]
16
4 10 18
17
18
# mul [2,1] [2,3]
19
6
20
120
21
22
}