Составить программу для решения квадратного уравнения в паскале x^2+2x-6

Uses crt;
var d:integer;
x1,x2:real;
begin
d:=2*2-4*1*(-6);
x1:=(-2+sqrt(d))/2;
x2:=(-2-sqrt(d))/2;
writeln(x1);
writeln(x2);
end.