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