main = do c <- readLn [ri,ro] <- map read . words <$> getLine print $ c * 2 * pi^2 * ((ro-ri)/2)^2 * (ri+((ro-ri)/2))