Imports System

Public Class Program

    Public Shared Sub Main()

        Dim N As Integer = Integer.Parse(Console.ReadLine())
        Dim dn(N - 1) As Integer



        For i As Integer = 0 To N - 1

            dn(i) = Integer.Parse(Console.ReadLine)

        Next

        Array.Sort(dn)

        Dim cnt As Integer = 1
        Dim temp As Integer = dn(0)

        For i As Integer = 0 To N - 1

            If Not (temp = dn(i)) Then
                cnt += 1
                temp = dn(i)
            End If

        Next


        Console.WriteLine(cnt)



    End Sub
End Class