1:
2:
3:
4:

  aX² + bX + c = 0
  X² + bX / a + c / a = 0
  X = -b/2a +- sqrt(b*b/(4*a*a) - c/a)
  X = -b/2a + sqrt(b*b/(4*a*a) - c/a) v. X = -b/2a - sqrt(b*b/(4*a*a) - c/a)                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

  procedure Nullstellen(a,b,c: Extended);
  var
    D: Extended;
  begin
    D := b*b/(4*a*a) - c/a
    if D < 0 then
      //wieauchimmer du sie ausgeben willst; hier ergebnis gleich [](leere Menge)
    else begin
      Ausgabe(-b/2a + sqrt(D), -b/2a + sqrt(D));  //Deine Ausgabe sollte gleiche Ergebnisse nur einmal ausgeben und an einer bestimmten stelle(einstellbar?) runden.
    end;
  end;