Module Module1

    Sub Main()
        Dim input = Console.ReadLine()
        Dim data = input.Split(" ")
        Dim H = CLng(data(0))
        Dim W = CLng(data(1))
        Dim N = CLng(data(2))
        Dim a() = New Integer(N) {}
        Dim b() = New Integer(N) {}
        Dim cnt As Integer = 0
        Dim ans As Integer = 0
        Dim result = New List(Of Integer)
        Dim position = New List(Of String)

        For i = 0 To N - 1
            input = Console.ReadLine()
            data = input.Split(" ")
            a(i) = CInt(data(0))
            b(i) = CInt(data(1))

            For x = a(i) - 2 To a(i)
                If x > 0 AndAlso x + 2 < H + 1 Then
                    For y = b(i) - 2 To b(i)
                        If y > 0 AndAlso y + 2 < W + 1 Then
                            If position.Count = 0 Then
                                position.Add(x & "," & y)
                            Else
                                Dim flg = False
                                For Each p In position
                                    If p = x & "," & y Then
                                        flg = True
                                    End If
                                Next
                                If flg = False Then
                                    position.Add(x & "," & y)
                                End If
                            End If
                        End If
                    Next
                End If
            Next
        Next

        For Each p In position
            data = p.Split(",")
            Dim ROW = CInt(data(0))
            Dim COLUMN = CInt(data(1))

            ans = 0

            For i = ROW To ROW + 2
                For j = COLUMN To COLUMN + 2
                    For k = 0 To N - 1
                        If i = a(k) AndAlso j = b(k) Then
                            ans += 1
                        End If
                    Next
                Next
            Next
            result.Add(ans)
        Next

        Dim re As Long
        re = (H - 2) * (W - 2) - result.Count
        Console.WriteLine(re)

        For cnt = 1 To 9
            re = 0
            For Each r In result
                If r = cnt Then
                    re += 1
                End If
            Next
            Console.WriteLine(re)
        Next
    End Sub

End Module