program main
      implicit none
      integer(4) :: n

      read *, n
      if ( mod(n,2) == 0 ) then
              print *, n/2
      else
              print *, n/2+1
      end if

end program main
