program QuadraticEquation;

var
a, b, c, D, x1, x2: real;

begin
writeln('Введите коэффициенты квадратного уравнения:');
write('a = ');
readln(a);
write('b = ');
readln(b);
write('c = ');
readln(c);

D := bb - 4a*c;

if D > 0 then
begin
x1 := (-b + sqrt(D)) / (2a);
x2 := (-b - sqrt(D)) / (2a);
writeln('У уравнения два корня:');
writeln('x1 = ', x1:0:2);
writeln('x2 = ', x2:0:2);
end
else if D = 0 then
begin
x1 := -b / (2*a);
writeln('У уравнения один корень:');
writeln('x = ', x1:0:2);
end
else
begin
writeln('Корней нет');
end;
end.