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