-- wrong answer
ans ([n,t]:xx) =
  let n' = ceiling n :: Int
      g = maximum $ map (\[x,h] -> h / x) $ take n' xx
  in
    t * g
    
main = do
  c <- getContents
  let i = map (map read) $ map words $ lines c :: [[Float]]
      o = ans i
  print o