Ребят помогите решить в паскале задачу,с дискриминантом пожалуйста

Question

Ребят помогите решить в паскале задачу,с дискриминантом пожалуйста

---

Answer 1

Var A, B, C, D, X1, X2 : Real;
Begin
Write ('Введите коэффициенты уравнения (A, B, C): ');
readln(A,B,C);
D:=B*B-4*A*C;
If D<0 Then Writeln ('Корней нет! ');<br>If D>0 Then
Begin
X1:=(-B+SQRT(D))/(2*A);
X2:=(-B-SQRT(D))/(2*A);
Writeln ('X1 = ', X1:0:3, '     X2 =  ',X2:0:3);
End
End.