Составить программу в pascal для нахождения корней квадратного уравнения ax^2+bx+c

var

a, b, c, x, x1, x2, d: integer;

begin

readln (a, b, c, x);

writeln ('корень квадратного уравнения с а =', a, ', b = ', b, ', c = ', c);

d = (a * x * x + b * x + c);

x1 = (-b + d)/2*a;

x2 = (-b - d) / 2 *a;

writeln ('первый корень = ', x1);

writeln ('второй корень = ', x2);

end.