В какой строчке допущена ошибка в программе, написанной на языке PascalABC? Программа должна высчитывать корни квадратного уравнения при заданных значениях коэффициентов a, b, c. 1) program KvadrUravn; 2) var; 3) a, b, c, d, x1, x2: real; 4) begin; 5) readln (a, b, c); 6) d := b b - 4 a c; 7) if d >= 0 then begin 8) if d <> 0 then begin 9) x1 := (b + sqrt(d)) / (2 a); 10) x2 := (-b + sqrt(d)) / (2 a); 11) writeln('x1 = ', x1:4:2, ', х2 = ', х2:4:2); 12) end 13) else begin 14) x1 := -(b / 2 a); 15) writeln ('x = ', x1:4:2); 16) end; 17) end 18) else begin 19) writeln ('Решений нет!'); 20) end; 21) end.
А) 5 б) 7 В)8 Г) 9
