написать программу на паскале которая вычисляет дискриминант квадратного уравнения

a, b, c, D : integer;beginWriteln('Введите коэфф-ты а, b и c');Readln(a,b,c);D = b * b - 4 * a * c;Writeln(D);Readln();end. Учтите, что если вам нужна программа для нахождения корней квадратного уравнения, то вам надо проверять все условия. Например, дескриминант может быть равен нулю и тд