uses crt;
var a,b,c,x1,x2:real;
begin
clrscr;
write('enter a,b,c=');
readln(a,b,c);
d:=b*b-4*a*c;
if(d>0) then
begin
x1=(-b+sqrt(d))/(2*a);
x2=(-b-sqrt(d))/(2*a);
writeln('Уравнение имеет 2 корня');
writeln(x1,x2);
end;
if(d=0) then
begin
x1=-b/(2*a)
writeln('Уравнение имеет 1 корень');
writeln(x1);
end;
if(d<0) then write('корней нет');
if(a=0) then
f:=b-c;
if(f>0) then write(b, 'больше', c, 'на', f);
if(f<0) then write(c, 'больше', b, 'на', f);
if(f=0) then write(b,' =', c);