integer::N,kouseiin,hikouseiin
  integer,parameter::jinkou=1000000,atari=10000
  real,parameter::seido=0.99
  real::gonin
  read *,N
  kouseiin = jinkou/atari*N
  hikouseiin = jinkou - kouseiin
  gonin = REAL(hikouseiin*(1.0-seido))/REAL(kouseiin*seido + hikouseiin*(1-seido))
  print '("0",f0.15)',gonin*100
end program