PROGRAM delta1

IMPLICIT NONE

REAL :: A,B,C

REAL :: DELTA,X1,X2

PRINT *,"Enter the a,b,and c"

READ *,A,B,C

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

IF (delta>0)THEN

PRINT *,"The roots are real"

X1=(-B+SQRT(DELTA))/(2*A)

X2=(-B-SQRT(DELTA))/(2*A)

PRINT *,"X1 = ",X1,"X2 = ",X2

END IF

IF (delta==0)THEN

PRINT *,"There is one real root"

X1 = -B/(2*A)

PRINT *,"X = ",X1

END IF

IF (delta<0)THEN

PRINT *,"The roots are complex"

X1=(-B+SQRT(DELTA))/(2*A)

X2=(-B-SQRT(DELTA))/(2*A)

END IF

END PROGRAM delta1

How can i show the complex and real roots in this program above which shows only real roots?