BruceQuincy Var a,b,c,s,k,y:integer;
begin 
read(a,b,c); 
s:=(sqrt(a+(b*b*b)))/(3*c); 
k:=(s-sqrt(abs(a*b*c))); 
y:=(s+k-((s)/(b*c))); 
write(y);
end.