Var

h, p, q, z, x, v, s, sp, sb1, sb2 : Real;

Begin

ReadLn(h, p, q);

z:= sqrt(sqr(h)/(sqr(p)-1));
x:= sqrt(sqr(z)/(sqr(q)+1));

sp:= ((q*x)*x);
sb1:= ((q*x)*h);
sb2:= (x*h);

v:= (sp*h);
s:= (2*sp)+(2*sb1)+(2*sb2);

WriteLn('V = ',v:0:2);
WriteLn('PC = ',s:0:2);

End.