use math; var x := ConstPi(); x := x / 10000000.0; print( "x is " + FormatRealToString(x,40) ); print( "raw" ); print( 5.0 ); print( 0.5 ); print( 0.00005 ); print( 1 ); print( "formatted" ); print( FormatRealToString( 5.0, 40 ) ); print( FormatRealToString( 0.5, 40 ) ); print( FormatRealToString( 0.00005, 40 ) ); print( FormatRealToString( 1, 40 ) );