m:-readln([A,B,C]),L is round(sqrt(A*C/B)),N is C/L,M is B/N,writef('%t %t %t\n',[L,M,N]),m.