begin
writeln('введите a,b,c');
readln(a,b,c);
if a=0 then if b=0 then if c=0 then writeln('x любое')
else writeln('нет решений')
else begin
x1:=c/b;
writeln('x=',x1:12:6);
end
else begin
D:=b*b-4*a*c;
if D>0 then begin
x1:=(-b-sqrt(D))/(2*a);
x2:=(-b+sqrt(D))/(2*a);
writeln('x1=',x1:12:6);
writeln('x2=',x2:12:6);
end
else if D=0 then begin
x1:=-b/(2*a);
writeln('x=',x1:12:6);
end
else writeln('нет решений');
end;
readln;
end.
