import Data.List

isTriangular threeNumbers = x + y > z
  where
    [x, y, z] = sort threeNumbers

countTrue = length . filter id

parseInputLine = map (read :: String -> Integer) . words

main = do
  input <- getContents
  print . countTrue . map (isTriangular . parseInputLine) . lines $ input

