编辑代码

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