Помогите составить Программу вычисления корней квадратного уравнения поь даным значениям его коффицеент

Program tt;
var  A,B,C,D,X1,X2: Real;
begin     
Writeln (Введите коэффициенты: A B C);     
Readln(A,B,C);     
D := B * B - 4 * A * C;
if D > 0 then begin
X1 := (-b + sqrt(D)) / (2 * A);
X2 := (-b - sqrt(D)) / (2 * A);
Writeln (X1, ,X2);
end
else if D = 0 then
begin
X1 := b  / (2 * A);
Writeln (X1);
end
Else
Writeln (корней нет);
End.