1 program mul_rab1;
2 uses mtx09;
3 var r0, m1, m2: mtx;
4 begin
5 tra;
6 equ(m1,'1,2,3;4,5,6');
7 equ(m2,'0,2,1;1,0,2');
8 mul(r0,m1,m2);
9 end.
10 {
11 # equ [2,3]
12 1 2 3
13 4 5 6
14
15 # equ [2,3]
16 0 2 1
17 1 0 2
18
19 # mul [2,3] [2,3] [2,3]
20 0 4 3
21 4 0 12
22
23 }