real a,b,c
	read *,a,b,c
	call root(a,b,c,x1,x2,iflag)
	if(iflag.eq.0)then
	print *,"root on = ",x1
	stop
	endif
	if(iflag.eq.1)then
	print *,"root on complet = ",x1,"+i",x2,x1,"-i",x2
	stop
	endif
	if(iflag.eq.2)then
	print*,"root on=",x1,"  ",x2
	stop
	endif
	end