program main
real::a,b,c,disc
write(*,*)"Enter the coefficiants of the quadratic equation:"
read(*,*)a,b,c 
disc=b**2-4*a*c 
if(disc>0)then
write(*,*)"Roots are real & unequal"
else if(disc==0)then
write(*,*)"roots are real & equal"
else
write(*,*)"Roots are complex & unequal"
end if 
end program main