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

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