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

Вывести вначале меньший, а затем больший из найденных корней.

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.

автор: Sklyarov Sergej a.k.a. S9