解答1

       integer a, b, c
       real x1, x2
c
       read(5,*) a, b, c
       x1 = ( -b + sqrt( b*b - 4.0 * a * c ) ) / (2.0*a)
       x2 = ( -b - sqrt( b*b - 4.0 * a * c ) ) / (2.0*a)
c
       write(6,*) x1, x2
c
       end