I will downvote and report if not correct or copied from anywhere"

PROBLEM 25 0594: Debug the following FORTRAN program for finding the roots of a quadratic equation: $ JOB PROGRAM TO CALCULATE ROOTS OF QUADRATIC EQN. C ASSUME POSITIVE DISCRIMINANT READ INPUT DATA 1) READ (5, 100), A, B, C 2) 100 FORMAT (3E12. 5) CALCULATE ROOTS 3) DISC = (B**2 4. *A*C)** 5 X1 = (-B + DISH) / 2. *A 5) X2 = (-B - DISH) / 2. *A WRITE OUTPUT 6) WRITE (6, 300) A, B, C, X1, X2 7) 200 FORMAT (5 (5X, E12. - 4) = 5)) 8) 9) STOP END