program main
real::a,b,c,disc
write(*,*)'enter the coefficient of the quardratic equation '
read(*,*)a,b,c 
disc=b**2-4*a*c 
if(disc>0) then
write(*,*)'roots are unequal & real'
else if(disc==0)then
write(*,*)'roots are equal & real'
else 
write(*,*)'roots are unequal & complex'
end if 
end program main