x r y z

program logicander;


Uses WinCrt;
Var
    x, r, y, z : real;
Begin


WriteLn ( 'Ingrese r' );
ReadLn (r);
WriteLn ( 'Ingrese y' );
ReadLn (y);
WriteLn ( 'Ingrese z' );
ReadLn (z);


x:= (r*r)*(y*y*y)/(z*z);


WriteLn ( 'El resultado es: ', x:3:3);


end.