Ладно, значит будет с комплексными.
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (a, b, c) := ReadReal3('Введите через пробел a, b, c:');
var d := b * b - 4 * a * c;
if d = 0 then Println('х =', -b / a)
else
if d > 0 then
begin
d := Sqrt(d);
Println('x1 =', (-b - d) / 2 / a);
Println('x2 =', (-b + d) / 2 / a)
end
else
begin
d := Sqrt(-d);
Println('x1 =', -b / 2 / a, '-', d / 2 / a, 'I');
Println('x2 =', -b / 2 / a, '+', d / 2 / a, 'I')
end
end.
<h2>Примеры</h2><h3>Введите через пробел a, b, c: 1 2 1</h3><h3>х = -2 </h3><h3 /><h3>Введите через пробел a, b, c: 3 4.5 -8.15</h3><h3>x1 = -2.56084694733339 </h3><h3>x2 = 1.06084694733339 </h3><h3 /><h3>Введите через пробел a, b, c: 3 4 5</h3><h3>x1 = -0.666666666666667 - 1.10554159678513 I </h3><h3>x2 = -0.666666666666667 + 1.10554159678513 I</h3>