Option Strict On

Module Module1
    Sub Main()
        'let'
        Dim N As Long = CLng(Console.ReadLine())

        'var'
        Dim ans As Long = N

        If N Mod 2 <> 0 Then ans *= 2

        Console.WriteLine(ans)

    End Sub
End Module