1 program sub_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 sub(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 # sub [2,3] [2,3] [2,3]
20 1 0 2
21 3 5 4
22
23 }