Вычисление корней квадратного уравнения

Program Quad;
  var
      А,В,С: real;{ Переменные для хранения коэффициентов }
      D: real; { Переменная для дискриминанта }
      X1,Х2: real;{ Переменные для получения корней}
begin
  writeln('Введите коэффициенты A,B,C: ');
  readln(A,B,C);
  D:=Sqr(B) - 4*А*С;
  if D < 0 then
      writeln('Уравнение не имеет вещественных корней ')
  else
    if D=0 then
        writeln('У уравнения один корень', -В/(2*А):6:2)
    else
{ Ниже идет составной оператор }
      begin
        Х1:=(-В + Sqrt(D))/(2*A);
        Х2:=(-В - Sqrt(D))/(2*A);
        writeln('У уравнения два корня:',Х1:6:2, Х2:6:2)
      end;
  readln
end.