1 program mwr0;
   2 uses mtx09;
   3 var a:mtx;
   4 begin
   5   equ(a,'1,2,3;4,5,6;');
   6   mwr(a);
   7 end.
   8 {
   9 1   2   3
  10 4   5   6
  11 
  12 }