var a, b, c: real; D, x1, x2: real; begin write('Enter the coefficients a, b, and c: '); readln(a, b, c); D := b * b - 4 * a * c; if D < 0 then writeln('The equation has no real roots') else if D = 0 then begin x1 := -b / (2 * a); writeln('The equation has one root: x = ', x1); end else begin x1 := (-b + sqrt(D)) / (2 * a); x2 := (-b - sqrt(D)) / (2 * a); writeln('The equation has two roots: x1 = ', x1, ', x2 = ', x2); end; end.