1 program one0;
   2 uses mtx09;
   3 var
   4   a, b: mtx;
   5 begin
   6   tra;
   7   one(a,2,4);
   8   equ(b,'1 2; 3 4; 5 6');
   9   one(a,b)
  10 end.
  11 {
  12 # one [2,4]
  13 1   1   1   1
  14 1   1   1   1
  15 
  16 # equ [3,2]
  17 1   2
  18 3   4
  19 5   6
  20 
  21 # one [3,2] [3,2]
  22 1   1
  23 1   1
  24 1   1
  25 
  26 }