import Data.Int (Int64)

maxSquareLE :: Integral a => a -> a
maxSquareLE n = (\x -> x * x) $ floor $ sqrt (fromIntegral n :: Double)

main :: IO ()
main = do
    n <- readLn :: IO Int64
    print $ maxSquareLE n
