program oaip_1;
uses System.SysUtils;
var
    X, XFirst, XSecond, D, A, B, C : Real;
    IsCorrect : Boolean;

begin
    repeat
        Write('Введите коэффицент A квадратного уравнения: ');
        IsCorrect := True;
        try
            Read(A);
        except
             Writeln('Не является числом');
            IsCorrect := False;
            Readln;
        end;
    until IsCorrect;

    repeat
        Write('Введите коэффицент B квадратного уравнения: ');
        IsCorrect := True;
        try
            Read(B);
        except
             Writeln('Не является числом');
            IsCorrect := False;
            Readln;
        end;
    until IsCorrect;

    repeat
        Write('Введите коэффицент C квадратного уравнения: ');
        IsCorrect := True;
        try
            Read(C);
        except
             Writeln('Не является числом');
            IsCorrect := False;
            Readln;
        end;
    until IsCorrect;

    if (B>=0) and (C>=0)  then
        Writeln('Квадратное уравнение: ', A:5:3, '*X^2 + ', B:5:3, '*X + ', C:5:3, '=0');
    if (C>=0) and (B<=0) then
        Writeln('Квадратное уравнение: ', A:5:3, '*X^2 ', B:5:3, '*X + ', C:5:3, '=0');
    if (C<=0) and (B>=0) then
        Writeln('Квадратное уравнение: ', A:5:3, '*X^2 + ', B:5:3, '*X ', C:5:3, '=0');
    if (C<=0) and (B<=0) then
        Writeln('Квадратное уравнение: ', A:5:3, '*X^2 ', B:5:3, '*X ', C:5:3, '=0');
    D := (B*B) - 4*A*C;
    if D>0 then
        Writeln('Корней нет.');
    if D=0 then
        begin
            X := -B / (2*A);
            Writeln('Корень уравнения - ', X:5:3);
        end;
    if D>0 then
        begin
            XFirst := (-B - Sqrt(D)) / 2*A;
            XSecond := (-B + Sqrt(D)) / 2*A;
            Writeln('Первый корень - ', XFirst:5:3, ', второй корень - ', XSecond:5:3);
        end;
    Readln;
    Readln;

end.