Module Module1
    Sub main()
        Dim userInput As Long
        Dim total As Long

        ' データの入力
        userInput = Console.ReadLine()
        Dim num As Long = CLng(userInput)

        total = num + num ^ 2 + num ^ 3

        '' 処理結果を返す
        Console.WriteLine(total)
    End Sub
End Module