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