[[Caral]]

Hola
Muy impresionante, te felicito.
El problema lo tienes aqui:

Código Delphi [-]
x:=(-b + (SQRT(SQR(b) - 4*a*c))/(2*a));
y:=(-b - (SQRT(SQR(b) - 4*a*c))/(2*a));

saludos