main = do cal <- readLn [rin, rout] <- getLine >>= return . map read . words let s = ((rout - rin) / 2) ^ 2 * pi let l = (rin + rout) / 2 * 2 * pi print $ s * l * cal