## Код:
```
MODULE x;
   IMPORT  Log := StdLog,  In := i21sysIn,  Math;
   
   PROCEDURE Round*;
      VAR  i: INTEGER; r: REAL;
   BEGIN
      i := -200;
      WHILE i <= 200 DO
         r := i / 10;
         Log.Real( Math.Round( r ) ); Log.Ln;
         INC( i );
      END;
   END Round;

END x.
```
