1:
　2:
　3:
　4:
　5:
　6:
　7:
　8:
　9:
 10:
 11:
 12:
 13:
 14:
 15:
 16:
 17:
 18:
 19:
 20:
 21:
 22:
 23:

c     変数宣言
      integer nisin(1:16)
      integer i,jyu

c     入力
      print *,'10進数を入力'
      read *,jyu
      
c     変換
      do i=1,16
         nisin(i) = mod(jyu,2)
         jyu = jyu/2
      enddo
      
c     出力
      do i=16,1,-1
         print *,nisin(i)
      enddo

      print *,'Enterキーを押してください・・・'
      read *
      stop 
      end