a = (0..9).map{ [0] * 10 }
while gets
    x, y, s = $_.split(",").map(&:to_i)
    case s
    when 1
        a[y][x] += 1
        a[y-1][x] += 1 if y > 0
        a[y+1][x] += 1 if y < 9
        a[y][x-1] += 1 if x > 0
        a[y][x+1] += 1 if x < 9
    when 2
        ([y-1, y, y+1] & (0..9).to_a).each{|i|
            ([x-1, x, x+1] & (0..9).to_a).each{|j|
                a[i][j] += 1
            }
        }
    when 3
        ((y-2..y+2).to_a & (0..9).to_a).each{|i|
            d = 2 - (i - y).abs
            ((x-d..x+d).to_a & (0..9).to_a).each{|j|
                a[i][j] += 1
            }
        }
    end
end

a.flatten!
p a.count{|x| x == 0}
p a.max