Write the program to solve quadratic equations, but if the discriminant is negative, output

PROGRAM  QuadraticEquation Solver

  IMPLICIT  NONE

REAL :: a, b, c ;

  REA :: d ;

  REAL  :: root1, root2 ;

//read in the coefficients a, b and c

  READ(*,*)    a, b, c  

  WRITE(*,*)   'a = ', a

  WRITE(*,*)   'b = ', b

  WRITE(*,*)    'c = ', c

  WRITE(*,*)

// computing the square root of discriminant d

  d = b*b - 4.0*a*c

  IF (d >= 0.0) THEN              //checking if it is solvable?

     d     = SQRT(d)

     root1 = (-b + d)/(2.0*a)     // first root

     root2 = (-b - d)/(2.0*a)     // second root

     WRITE(*,*)  'Roots are ', root1, ' and ', root2

  ELSE                            //complex roots

     WRITE(*,*)  'There is no real roots!'

     WRITE(*,*)  'Discriminant = ', d

  END IF

END PROGRAM  QuadraticEquationSolver

the only way i would see could be an autoclicker type software. but that is very time consuming.

there is no universally accepted definition of art. although commonly used to describe something of beauty, or a skill which produces an aesthetic result, there is no clear line in principle between (say) a unique piece of handmade sculpture, and a mass-produced but visually attractive item. we might say that art requires thought - some kind of creative impulse - but this raises more questions: for example, how much thought is required? if someone flings paint at a canvas, hoping by this action to create a work of art, does the result automatically constitute art?