local n, p = io.read("*n", "*n")
local dst = 0
local t = {}
for i = 1, n do
  local w, b = io.read("*n", "*n")
  dst = dst + b
  t[i] = (100 - p) * w + p * b
end
dst = dst * p
table.sort(t)
for i = n, 1, -1 do
  dst = dst - t[i]
  if dst <= 0 then
    print(n + 1 - i)
    break
  end
end
