{* Корни квадратного уравнения, заданного своими коэффициентами *}

Unit Z_EQUATION12;
Interface
Implementation
Begin
 writeln('Корни квадратного уравнения, заданного своими коэффициентами');
End.

Program z_equation;

Uses z_equation12.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  IndexA : real;
  IndexB : real;
  IndexC : real;
Begin
  clrscr; {* Очистка экрана *}
  writeln('Введите коэффициент a квадратного уравнения ax^2 + bx + c = 0');
  readln(IndexA);
  writeln('Введите коэффициент b квадратного уравнения ax^2 + bx + c = 0');
  readln(IndexB);
  writeln('Введите свободный коэффициент c квадратного уравнения ax^2 + bx + c = 0');
  readln(IndexC);
  writeln; {* Вывод пустой строки *}
  If (sqr(IndexB) < 4 * IndexA * IndexC) Then
    writeln('Уравнение не имеет действительных решений')
  Else If (sqr(IndexB) = 4 * IndexA * IndexC) Then
    writeln('Корень данного квадратного уравнения один и равен ', - IndexB / (2 * IndexA) : 0 : 2)
  Else Begin
    writeln('Первый корень данного квадратного уравнения');
  writeln(( - IndexB + sqrt(sqr(IndexB) - 4 * IndexA * IndexC)) / (2 * IndexA) : 0 : 2);
  writeln; {* Пропускаем одну строку *}
  writeln('Второй корень данного квадратного уравнения');
  writeln(( - IndexB - sqrt(sqr(IndexB) - 4 * IndexA * IndexC)) / (2 * IndexA) : 0 : 2);
End;
  readln; {* Приостановка программы. Ожидание Enter *}
  End.....