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

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.