SIN(X)

 X=2.0
      SUM=X
      N=3
      DO 10 I=2,17
      PROD=1.0
      DO 20 J=1,N
      PROD=PROD*J
 20     CONTINUE
      SUM =SUM -(-1**I)*(X**N)/PROD
      N=N+2
 10     CONTINUE
      Y=SIN(X)
      ERROR=Y-SUM
      WRITE(*,*)SUM ,Y,ERROR
      PAUSE
      STOP
      END