1 program lgn0;
   2 uses mtx09;
   3 var
   4  a,r: mtx;
   5 begin
   6   equ(a,'1 2 3; 4 5 6; 7 8 9');
   7   mwr(a);
   8   mwr(lgn(a,2));
   9   add(r,lgn(a,1),lgn(a,2));
  10   mwr(r)
  11 end.
  12 {
  13 1   2   3
  14 4   5   6
  15 7   8   9
  16 
  17 4   5   6
  18 
  19 5   7   9
  20 
  21 }