Найти корни квадратного уравнения Ax^2+ Bx + C = 0, заданного своими коэффициентами A, B, C (коэффициент A не равен 0), если известно, что дискриминант уравнения положителен — Pascal(Паскаль)

Program Begin39;

Var
  A, B, C, X1, X2: Real;

Begin
  WriteLn('Введите A,B и C');
  ReadLn(A, B, C);
  D := Sqr(B) - 4 * A * C;
  X1 := (-B - sqrt(D)) / (2 * A);
  X2 := (-B + sqrt(D)) / (2 * A);
  If X1 <= X2 Then
    WriteLn('X1 = ', X1, ' X2 = ', X2)
  Else
    WriteLn('X1 = ', X2, ' X2 = ', X1);
  ReadLn;

End.