real a,b,c
read *,a,b,c	
call ruut(a,b,c,x1,x2,deskr)

if ()
print *,x1,x2,deskr

stop
end

subroutine ruut(a,b,c,x1,x2,deskr)
deskr= b*b-4.*a*c
print *,a,b,c,deskr
if(deskr < 0.)then
x1=(-b+sqrt(-deskr))/(2.*a)
x2=(-b-sqrt(-deskr))/(2.*a)
return
endif

if(deskr == 0.)then
x1=-b/(2.*a)
return
endif

if(deskr > 0.)then
x1=(-b+sqrt(deskr))/(2.*a)
x2=(-b-sqrt(deskr))/(2.*a)
return
endif

end