Module Module085B
    Sub Main(ByVal args() As String)
        Dim i, j As Integer
        Dim result As Integer : result = 0
        Dim tmp As Integer
        Dim flag As Boolean

        Dim N As Integer
        N = Console.ReadLine()
        Dim arr_I() As Integer
        ReDim arr_I(N - 1)

        For i = 0 To N - 1
            flag = False
            tmp = Integer.Parse(Console.ReadLine())
            arr_I(i) = tmp
            For j = 0 To i
                If j <> i And tmp = arr_I(j) Then
                    flag = True
                End If
            Next

            'ここまでに同じ直径の餅が読み込まれなかったらカウントを増やす
            If flag = False Then
                result = result + 1
            End If

        Next

        Console.Write(result)
    End Sub
End Module
