m:-readln(L),s(L),m.
s([A,B,C]):-T is sqrt(A*B*C),format('~0f ~0f ~0f~n',[T/B,T/C,T/A]).