import Control.Applicative
import Control.Monad
import Data.Functor
import Data.List

readInts :: IO [Int]
readInts = map read . words <$> getLine

solve r = 3 * r ^ 2

main = solve <$> readLn >>= print