m:-prompt1(''),readln([A,B,C]),(A<0;L=floor((A*C/B)^0.5),format("~d ~d ~d
",[L,A/L,C/L]),m).