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 }