var

  a, b, c, d, x1, x2: real;

begin

  Write('Введите через пробел значения a,b,c: ');

  Readln(a, b, c);

  d := sqr(b) - 4 * a * c;

  if d < 0 then Writeln('Нет действительных корней')

  else if d = 0 then Writeln('Один корень ', -b / (2 * a))

  else

  begin

    d := sqrt(d);

    x1 := (-b - d) / (2 * a);

    x2 := (-b + d) / (2 * a);

    Writeln('x1=', x1, ', x2=', x2)

  end

end.

Тестовое решение:

Введите через пробел значения a,b,c: 4 3.2 -2

x1=-1.2124038404636, x2=0.412403840463596