解答2

       real a, b, c
       real x1, x2
c
       read(5,*) a, b, c
       if( a .eq. 0.0 ) then
          x1 = - c / b
          x2 = 0.0
       else
          x1 = ( -b + sqrt( b*b - 4.0*a*c ))/ ( 2.0*a )
          x2 = ( -b - sqrt( b*b - 4.0*a*c ))/ ( 2.0*a )
       end if
c
       write(6,*) x1, x2
c
       end