SOLUTION OF AX^2+BX+C

   WRITE(*,*) 'ENTER VALUE OF A,B,C'
       READ(*,3) A,B,C
    3  FORMAT(3F5.2)
       D=B*B-4*A*C
       IF(D.LT.0) GO TO 16
       IF(D.GT.0) THEN
       ROOT1=(-B+SQRT(D))/2*A
       ROOT1=(-B-SQRT(D))/2*A
       WRITE(*,10) ROOT1,ROOT2
   10  FORMAT(2F5.2)
       ELSE
       ROOT=(-B)/(2*A)
       WRITE(*,14) ROOT
  14  FORMAT(F5.2)
       END IF
 16  STOP
       END