1 program zer1;
   2 uses mtx09;
   3 var a, m: mtx;
   4 begin
   5   tra;
   6   equ(a,'1 2 3; 4 5 6');
   7   zer(m,a)
   8 end.
   9 {
  10 # equ [2,3]
  11 1   2   3
  12 4   5   6
  13 
  14 # zer [2,3] [2,3]
  15 0   0   0
  16 0   0   0
  17 
  18 }