Найти корни квадратного уравнения A·x2 + B·x + C = 0, заданного своими коэффициентами A, B, C (коэффициент (программа Паскаль)

var
A, B, C, D, x: real;

begin
write('A = ');
readln(A); { <-- вводим А≠0 }
write('B = ');
readln(B); { <-- вводим B }
write('C = ');
readln(C); { <-- вводим C }
writeln;
D := sqr(B) - 4 * A * C; { <== вычисляем дискриминант }
writeln('Результат:');
x := (- B - sqrt(D)) /(2 * A); { <== первый корень }
writeln(' x1 = ', x:0:4);
x := (- B + sqrt(D)) /(2 * A); { <== второй корень }
writeln(' x2 = ', x:0:4);
readln
end.