Module Module1

    Sub Main()
        'let'
        Dim N As Long = CLng(Console.ReadLine())
        'var'
        Dim d(N - 1), cnt, pre As Long

        For i As Long = 0 To N - 1
            d(i) = CLng(Console.ReadLine())
        Next

        Array.Sort(d)

        For i As Long = 0 To N - 1
            If i <> 0 AndAlso d(i - 1) < d(i) Then
                cnt += 1
            End If

            pre = d(i)
        Next

        Console.WriteLine(cnt + 1)
    End Sub

End Module
