INT                    Return Integer Part of Number                 pp 140

 Syntax:  Int (NumVar) ;

 Type:    Real

 Form:    Function

 Purpose: Returns the greatest integer part of NumVar which is greater than
          or equal to NumVar, if NumVar > 0.  If NumVar < 0 then the smallest
          integer greater than or equal to NumVar is returned..

 Notes:   NumVar may be either Integer or Real.


 ----------------------------------------------------------------------------


 Usage:
       VAR
          IntVar  : Integer        ;
          RealVar : Real           ;
          Result  : Real           ;

       BEGIN
          Result  := Int (IntVar)  ;
          Result  := Int (RealVar) ;
       END.