Imports System

Module practiceA
    Sub Main()
        Call test2()


    End Sub

    Sub test1()
        Dim K, i, A, B As Integer
        Dim arr(2) As String

        K = Console.ReadLine()
        arr = Split(Console.ReadLine())
        A = arr(0)
        B = arr(1)

        If A <= B Then

            While K * i <= 1000

                If K * i >= A And K * i <= B Then
                    Console.Write("OK")
                    Exit Sub
                Else
                    i = i + 1
                End If

            End While

        End If

        Console.Write("NG")

    End Sub

    Sub test2()
        Dim yokinn, X, year As Double

        yokinn = 100
        year = 0

        X = Console.ReadLine()

        While yokinn < X

            yokinn = Int(yokinn + yokinn * 0.01)

            year += 1

        End While

        Console.Write(year)


    End Sub

    Sub test3()
        Dim N, i, count As Integer

        count = 1

        N = Console.ReadLine()

        Dim stringlist(N - 1) As String

        For i = 0 To N - 1
            stringlist(i) = Console.ReadLine()
        Next i

        Dim uniqueFoods() As String = stringlist.Distinct.ToArray

        count = uniqueFoods.Length

        Console.WriteLine(count)

    End Sub


End Module