PROGRAM nizi IMPLICIT NONE REAL a, b, c, det, x1, x2 * READ(*,*) a, b, c WRITE(*,*) a, b, c det = b*b - 4.0 * a * c x1 = ( -b + sqrt(det) ) / (2.0 * a) x2 = ( -b - sqrt(det) ) / (2.0 * a) WRITE(*,*) x1, x2 END