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

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.