import qualified Data.ByteString.Char8 as BS
import qualified Data.Maybe as Maybe
import qualified Debug.Trace as Trace

solve :: Int -> Int
solve r = r * r

main = do
    r <- (fst . Maybe.fromJust . BS.readInt) <$> BS.getLine
    let ans = solve r
    print ans