m:-readln(L),s(L),m.\x0d s([A,B,C]):-T is sqrt(A*B*C),format('~0f ~0f ~0f~n',[T/B,T/C,T/A]).
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page