В какой строке допущена ошибка в программке, написанной на языке PascalABC?

В какой строке допущена ошибка в программе, написанной на языке 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 gt;= 0 then begin
8) if d lt;gt; 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