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