<HTML><BODY><p><br>How many right suggestions. But... anyway something wrong with real math in Oberon implementation, because same example in BlackBox returns yet another result expected by Zdenek.</p><p>Code:<br data-mce-bogus="1"></p><p>MODULE M1;<br><br>IMPORT<br>        StdLog;<br>        <br>PROCEDURE Do*;<br>VAR<br>        r: REAL;<br>BEGIN<br>        r := 480 / 100 * 100;<br>        StdLog.Int(ENTIER(r * 1000000));<br>        StdLog.Ln;<br>END Do;<br>        <br>BEGIN<br>END M1.<br data-mce-bogus="1"></p><p>Output:<br data-mce-bogus="1"></p><p>480000000<br data-mce-bogus="1"></p><p>Same result as BlackBox
returned in commercial&nbsp;Embarcadero RAD Studio using type corresponding single type.<br><br>---<br>Cheers, SAGE<br>http://sage.com.ua/<br></p></BODY></HTML>