Составить программу в паскале для решения квадратного уравнения ax^2+bx+c=0

programm kvadratnoeuravnenie;

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

begin

writeln ('Введите коэффициент стоящий перед квадратом х');

readln (a);

writeln ('Введите коэффициент стоящий перед х');

readln (b);

writeln ('Введите коэффициент свободного слагаемого');

readln (c);

d = sqr (b) - 4 * a * c;

if d < 0

then

writeln ('Дискриминант меньше нуля, поэтому квадратное уравнение не будет иметь действительных корней')

else

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

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

writeln ('Первый корень уравнения = ', x1);

writeln ('Второй корень уравнения = ', x2);

end.