Gleichungssystem in Delphi lösen ?

[06_jako]

Hallöchen.

Ich will folgendes Gleichungssystem in Delphi lösen:

o*a²+p*a+q=f(a)
o*xm²+p*xm+q=f(xm)
o*b²+p*b+q=f(b)

kann mir jemand mal kurz erklären wie ich das in Delphi eingebe damit er es löst ?

ich will die Werte für o, p, q rausbekommen und hab die von a,f(a),b,f(b),xm,f(xm).

thx