Составить программку для нахождения корней квадратного уравнения ах2+вх+с

Для начала мы обязаны выделить коэффициенты при переменных х и записать их в переменные.
Для этого мы можем сыскать индекс первого вхождения переменной х либо сходу запрашивать только коэффициенты.
Во втором случае последующим шагом будет нахождение D:
D := sqr(b) 4 * a * c;
Для того, чтобы отыскать каждый из корней, мы обязаны использовать такие условия:
1) Если D gt; 0, корня два.
if (D gt; 0) then
x1 := (- b + sqrt(D)) / 2 * a;
x2 := (- b - sqrt(D)) / 2 * a;
2) Если D lt; 0, корней нет.
writeln(Корней нет);
3) Если D = 0, корень единственный.
x := (- b + sqrt(D)) / 2 * a;