Помогите составить программу в Turbo Pascal

Это, как раз, «равенство» !
Неравенство означается знаками < > ≠ ≥ ≤

запрограммируйте так как решаете на бумаге, с помощью формул дискриминанта, только добавить соответствующие условия: что Д >= 0 и a 0

не доработан алгоритм! Если d=0 один корень. Плюс могут быть бесконечное множество решении и могут быть комплексные корни!