FindMaximum[{2*a*b, a^2+b^2 <= 1/4, a >=0, b >= 0}, {a, b}]