program Laba1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
   System.SysUtils;

var
    A, B, C, Di, FirstRoot, SecondRoot: Real;
    IsCorrect: Boolean;

begin
   IsCorrect := False;
   repeat
      try
         Write('Пожалуйста, введите параметр A: ');
         Readln(A);
         isCorrect := True;
      except
         Writeln('Ошибка!Пожалуйста, ведите числовое значение.');
      end;
      if A = 0 then
         Writeln('При A = 0 уравнение не является квадратным, введите другое значение');
   until (IsCorrect) and (A <> 0);
   IsCorrect := False;
   repeat
      try
         Write('Пожалуйста, введите параметр B: ');
         Readln(B);
         IsCorrect := True
      except
         Writeln('Ошибка!Пожалуйста, введите числовое значение.');
      end;
   until (IsCorrect);
   IsCorrect := False;
   repeat
      try
         Write('Пожалуйста, введите параметр C: ');
         Readln(C);
         IsCorrect := True
      except
         Writeln('Ошибка! Пожалуйста, введите числовое значение.');
      end;
      until (IsCorrect);
   Di := B * B - 4 * A * C;
   if Di > 0 then
   begin
      FirstRoot := (-B - Sqrt(Di)) / (2 * A);
      SecondRoot := (-B + Sqrt(Di)) / (2 * A);
      Writeln('Первый корень равен: ', FirstRoot:5:2);
      Writeln('Второй корень равен: ', SecondRoot:5:2);
   end
   else
      if Di = 0 then
      begin
         FirstRoot := (-B) / (2 * A);
         Writeln('Корень уравнения равен: ', FirstRoot:5:2);
      end
      else
         Writeln('Корней нет');
   Readln;
end.