var
a,b,c:integer;
D,x1,x2:real;
begin
writeln('введите 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('Корни уравнения = ', x1 : 0 : 3, ' ', x2 : 0 : 3)
end
else if D = 0 then begin
x1 := -b / (2*a);
WriteLn ('Корень ур-ия = ', x1 : 0 : 3)
end
else
writeln('корней нет ');
end.
dmFyCmEsYixjOmludGVnZXI7CkQseDEseDI6cmVhbDsKYmVnaW4Kd3JpdGVsbign0LLQstC10LTQuNGC0LUgYSxiLGMgJyk7CnJlYWRsbihhLGIsYyk7CkQ6PShiKmIpLTQqYSpjOwppZihEPjApIHRoZW4gYmVnaW4KeDE6PSAoLWIrc3FydChEKSkvKDIqYSk7CngyOj0gKC1iLXNxcnQoRCkpLygyKmEpOwp3cml0ZWxuKCfQmtC+0YDQvdC4INGD0YDQsNCy0L3QtdC90LjRjyA9ICcsIHgxIDogMCA6IDMsICcgJywgeDIgOiAwIDogMykKZW5kCmVsc2UgaWYgRCA9IDAgdGhlbiBiZWdpbgp4MSA6PSAtYiAvICgyKmEpOwpXcml0ZUxuICgn0JrQvtGA0LXQvdGMINGD0YAt0LjRjyA9ICcsIHgxIDogMCA6IDMpCmVuZAplbHNlCndyaXRlbG4oJ9C60L7RgNC90LXQuSDQvdC10YIgJyk7CmVuZC4K