Программа

PROGRAM QuadraticEquation;
VAR a,b,c:real;  { Коэффициенты }
    d:real;      { Дискриминант }
BEGIN
  WriteLn;             { Пропуск строки }
  Write('Введите a '); { Вывод приглашения ввести коэффициент a }
  ReadLn(a);           { Ввод коэффициента a }
  Write('Введите b '); { Вывод приглашения ввести коэффициент b }
  ReadLn(b);           { Ввод коэффициента b }
  Write('Введите c '); { Вывод приглашения ввести коэффициент c }
  ReadLn(c);           { Ввод коэффициента c }

  d:=Sqr(b)-4*a*c;     { Вычисление дискриминанта }
  if d<0               { Если дискриминат отрицательный, }
    then WriteLn('Корней нет')  { то вывод сообщения об отсутствии корней }
    else WriteLn('X1=',(-b-Sqrt(d))/(2*a),'  X2=',(-b+Sqrt(d))/(2*a))
                                { иначе вычисление и вывод корней }
END.



































  ***************
 *               *
 *    П У С К    *
 *               *
  ***************
         :
         :
   *****************

  *               *
      a, b, c
 *               *

*****************
         :
         :
 *****************
 *               *
 *               *
 * d:=b^2-4*a*c  *
 *               *
 *               *
 *****************
         :
         :
         *
       *   *
     *       *
   *           *    Нет
 *      d<0      * ................
   *           *                  :
     *       *                    :
       *   *                      :
         *                        :
         :                        :
         : Да                     :
         :                        :
   *****************        *****************

  *               *        * Вычисление и  *
     Решений нет
 *               *        *  вывод корней *

*****************        *****************
         :                        :
         :                        :
         :........................:
         :
         :
  ***************
 *               *
 *   К О Н Е Ц   *
 *               *
  ***************