Create a program to find the roots of the quadratic equation ax ^ 2 + bx + c.

First, we have to select the coefficients for the variables x and write them into variables.
To do this, we can find the index of the first occurrence of the variable x or immediately request only the coefficients.
In the second case, the next step is to find D:
D: = sqr (b) – 4 * a * c;
In order to find each of the roots, we must use the following conditions:
1) If D> 0, there are two roots.
if (D> 0) then
x1: = (- b + sqrt (D)) / 2 * a;
x2: = (- b – sqrt (D)) / 2 * a;
2) If D <0, there are no roots.
writeln (‘No roots’);
3) If D = 0, the root is unique.
x: = (- b + sqrt (D)) / 2 * a;