Составьте программу решения квадратного уравнения.

• var a, b, c, D, x1, x2: real;
• begin
• readln\(a, b, c\);
• D := b * b - 4 * a * c;
• if D >= 0 then begin
• write\(\(\-b \+ sqrt\(D\)) / \(2 \* a\));
• write\(\(\-b \- sqrt\(D\)) / \(2 \* a\)); end
• else write\('корней нет'\)
• end.