let R() =stdin.ReadLine()

let f n k = 
    let a = int(50. * n) 
    let b = int((50. * n)/(0.8 + 0.2 * k))
    a + b

let a,b = let t = R().Split() |> Array.map float in t.[0], t.[1]

f a b |> stdout.WriteLine