program main
real::a,b,c,disc
write(*,*)"Enter the coefficient 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