begin
d := b * b - 4 * a * c
if d >= 0 then begin
x1 := (-b + sqrt (d)) / (2 * a)
x2 := (-b - sqrt (d)) / (2 * a)
begin
d := b * b - 4 * a * c
if d >= 0 then begin
x1 := (-b + sqrt (d)) / (2 * a)
x2 := (-b - sqrt (d)) / (2 * a)