Sin function

  DECLARATION:  Sin(X : Real);

      PURPOSE:  Returns the sine of an argument

         UNIT:  System

  RESULT TYPE:  Real

      REMARKS:  X is a Real-type expression and the result is the Sine
                of X.  X is assumed to be an angle expressed in radians.