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