1 program mwr_x;
   2 uses mtx09;
   3 begin
   4   mwr(2.0);
   5   mwr(1.0/3.0);
   6   fmt(0);
   7   mwr(2.0);
   8   mwr(1.0/3.0);
   9 //
  10   writeln(2.0);
  11   writeln(1.0/3.0)
  12 end.
  13 {
  14 2
  15 
  16 0.333333
  17 
  18  2.000000000000000E+000
  19 
  20  3.333333333333333E-001
  21 
  22  2.0000000000000000E+0000
  23  3.3333333333333333E-0001
  24 }