program uneven_numbers
  implicit none
  integer :: n, ans = 0
  read(*,*) n
  if (n > 0) ans = ans + min(9,n)
  if (n > 99) ans = ans + min(900,n-99)
  if (n > 9999) ans = ans + min(90000,n-9999)
  write(*,'(i0)') ans
  stop
end program uneven_numbers