program cv
  implicit none
  integer :: n
  read(*,*) n
  select case(n)
    case(:104)
      write(*,'(i0)') 0
    case(105:134)
      write(*,'(i0)') 1
    case(135:164)
      write(*,'(i0)') 2
    case(165:188)
      write(*,'(i0)') 3
    case(189:194)
      write(*,'(i0)') 4
    case(195:200)
      write(*,'(i0)') 5
    case default
      write(*,'(i0)') 0
  end select
  stop
end program cv