program main real::a,b,c,x,y read*,a,b,c x=((-b)+sqrt(b**2-4*a*c))/2a y=((-b)+sqrt(b**2-4*a*c))/2a print*,x,y end