Imports System
Imports System.IO
 
Public Class Suretsu
  Shared Sub Main(ByVal args As String())
    Dim input As TextReader
    input = Console.In
 
    Dim line As String = input.ReadLine()
 
    While (Not line Is Nothing)
    Dim target As Integer = Integer.Parse(line)
    dim n as Long = 0
    dim r as Long = 1
    dim l as Long = 1
 
    For i As Integer = 1 To target - 1
    'Console.WriteLine("loop:" & i)
    n = n + r
    r = l
    l = n
    Next i
 
    Console.WriteLine(n + r + l)
 
    line = input.ReadLine()
    End While
    input.Dispose()
  End Sub
End Class

SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uSU8KClB1YmxpYyBDbGFzcyBTdXJldHN1CiAgU2hhcmVkIFN1YiBNYWluKEJ5VmFsIGFyZ3MgQXMgU3RyaW5nKCkpCiAgICBEaW0gaW5wdXQgQXMgVGV4dFJlYWRlcgogICAgaW5wdXQgPSBDb25zb2xlLkluCiAgICAKICAgIERpbSBsaW5lIEFzIFN0cmluZyA9IGlucHV0LlJlYWRMaW5lKCkKCiAgICBXaGlsZSAoTm90IGxpbmUgSXMgTm90aGluZykKICAgIERpbSB0YXJnZXQgQXMgSW50ZWdlciA9IEludGVnZXIuUGFyc2UobGluZSkKICAgIGRpbSBuIGFzIExvbmcgPSAwCiAgICBkaW0gciBhcyBMb25nID0gMQogICAgZGltIGwgYXMgTG9uZyA9IDEKICAgIAogICAgRm9yIGkgQXMgSW50ZWdlciA9IDEgVG8gdGFyZ2V0IC0gMQogICAgJ0NvbnNvbGUuV3JpdGVMaW5lKCJsb29wOiIgJiBpKQogICAgbiA9IG4gKyByCiAgICByID0gbAogICAgbCA9IG4KICAgIE5leHQgaQogICAgCiAgICBDb25zb2xlLldyaXRlTGluZShuICsgciArIGwpCiAgICAKICAgIGxpbmUgPSBpbnB1dC5SZWFkTGluZSgpCiAgICBFbmQgV2hpbGUKICAgIGlucHV0LkRpc3Bvc2UoKQogIEVuZCBTdWIKRW5kIENsYXNz

MQoyCjMKNAox

1
2
3
4
1