      read *,a
      s=sin(a)
      print *, s
      end
