program EquazioneSecondoGrado;
const
prec = 1.0E-6;
var
a, b, c,
d,
r, imm : real;
begin
write('Immettere i 3 coefficienti: ');
readln(a, b, c);
d := sqr(b) - 4*a*c;
if d > prec then
begin
d := sqrt(d);
writeln('Due soluzioni reali:');
writeln(' x1 = ', (-b-d)/(2*a):10:3);
writeln(' x2 = ', (-b+d)/(2*a):10:3)
end
else if d < -prec then
begin
r := -b/(2*a);
imm := sqrt(-d)/(2*a);
writeln('Due soluzioni complesse coniugate:');
writeln(' x1 = ', r:10:3, ' + ', imm:10:3, ' i');
writeln(' x2 = ', r:10:3, ' - ', imm:10:3, ' i')
end
else
begin
writeln('Una soluzione doppia:');
writeln(' x = ', -b/(2*a):10:3)
end
end.