Option Explicit On

Module Module1

    Sub Main()

        Dim X As Long = Console.ReadLine()

        Dim yokin As Long = 100
        Dim year As Long = 0
        Do
            yokin = Math.Floor(yokin * 1.01)
            year += 1
            If yokin >= X Then
                Console.WriteLine(year)
                Exit Do
            End If
        Loop
        Console.ReadLine()

    End Sub

End Module
