Программа для решения квадратного уравнения: ax2+bx+c=0
{ решение уравнения: ax2 + bx + c = 0 }
var a, b, c, d, x: real;
begin
writeln('Введите коэффиценты: A, B, C:');
readln(a, b, c);
d := sqr(b) - 4 * a * c;
if d < 0 then begin
writeln('Действительных корней нет');
end else if d = 0 then begin
x := (-b) / 2 * a;
writeln('Корень уравнения: ', x);
end else begin
x := (-b + sqrt(d)) / 2 * a;
writeln('1-й корень уравнения: ', x);
x := (-b - sqrt(d)) / 2 * a;
writeln('2-й корень уравнения: ', x);
end
end.
