program main

real::a,b,c,disc

write(*,*)"Enter the coefficients of the &
          & quadratic equation"
read(*,*) a,b,c 

disc=b**2-4*a*c 

if(disc>0)then
        write(*,*)"Roots are real and unequal"
else if(disc==0)then
        write(*,*)"Roots are real and equal"
else
        write(*,*)"Roots are complex and unequal"
end if

end program main