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

Program Zadacha;
Var a, b, c, D: Integer;
x1, x2: Real;
Begina := 1;
b := 2;c := -6;
D := b * b - 4 * a * c;
x1 := (-b + Sqrt(D)) / (2 * a);
x2 := (-b - Sqrt(D)) / (2 * a);
WriteLn('x1 = ', x1:5:2);
WriteLn('x2 = ', x2:5:2);
ReadLn;
End.