program eg6; var A, B, C, D, ANS1,ANS2 : real; begin readln(A,B,C); if A = 0 then writeln(-C/B) else begin D := B*B- 4*A*C; if D < 0 then writeln('No Answer') else if D = 0 then writeln(-B/(2*A)) else begin ANS1 := (-B+sqrt(D))/(2*A); ANS2 := (-B-sqrt(D))/(2*A); writeln(ANS1,ANS2) end end end.