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

A, b, c, D : integer;

begin

Writeln ('Введите коэфф-ты а, b и c') ;

Readln (a, b, c) ;

D = b * b - 4 * a * c;

Writeln (D) ;

Readln () ;

end.

Учтите, что если вам нужна программа для нахождения корней квадратного уравнения, то вам надо проверять все условия. Например, дескриминант может быть равен нулю и тд