Напишите программу на языке паскаль как найти корни квадратного уравнения ( ax+bx+c=0 ),при этом использовав if then else со значениями дискрименанта d=0 d< 0 b d> 0

Var 
a, b, c, D: real;
  x1, x2: real;
begin
  Write('Введите А:'); Readln(a);
  Write('Введите B:'); Readln(b);
  Write('Введите C:'); Readln(c);
  D := sqr(b) - (4 * a * c);
  if (D > 0) then
 begin
    x1 := (-b + sqrt(D)) / (2 * a);
    x2 := (-b - sqrt(D)) / (2 * a);
    Writeln('x1=', x1);
    Writeln('x2=', x2);  end  else
   if(d = 0) then
 begin
    x1 := b / (2 * a);
    Write('x1=', x1, 'x2=', x1);
  end   else
 writeln('Корней нет');
end.