program main
real:: a,b,c,disc
    write(*,*)" Enter the coefficiernt of the quadratic equation: "
    read(*,*)a,b,c

    dice=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 unreal and unequal"
    end if 
    end program