Imports System.Collections.Generic

Module Module1
    Sub Main()
        Dim N = Integer.Parse(Console.ReadLine())
        Dim d As Integer
        Dim d1 As New List(Of Integer)
        For i As Integer = 1 To N
            d = Integer.Parse(Console.ReadLine())
            If Not d1.Contains(d) Then d1.Add(d)
        Next
        Console.WriteLine(d1.Count)
    End Sub
End Module
