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 }