1 program fmt_;
2 uses mtx09;
3 var a:mtx;
4 begin
5 equ(a,'1.23456789,1.23456789e5; 10, 1.23456789e-5');
6 mwr(a);
7 fmt(0);
8 mwr(a)
9 end.
10 {
11 1.23457 123456.8
12 10 1.23457E-5
13
14 1.234567890000000E+000 1.234567890000000E+005
15 1.000000000000000E+001 1.234567890000000E-005
16
17 }