program sinx
      implicit none
      real*8 sinsum,term,x,y
      Write(*,*) "input your angle"
      read(*,*) x
      x=x*3.141592653589/180
      sinsum=x
      term=x
      y=1
      do while (dabs(term).gt.1.d-7)
         term=-term*x**2/(y+1)/(y+2)
         y=y+2
         sinsum=sinsum+term
      enddo
      write(*,*) sinsum
      write(*,*) sin(x)
      end