В какой строчке допущена ошибка в программе, написанной на языке 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

1) program KvadrUravn; ошибки нет

2) var; ошибка, после var точка с запятой не ставится

3) a, b, c, d, x1, x2: real; ошибки нет

4) begin; ошибка, после 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. ошибки нет