Segítene valaki pascalban 3-ad fokú egyenletre programot írni?

Igazából csak az elejében kéne segítség h hogyan tudom áttalakítani másodfokúvá.onnantól kezdve már megy.

így csinálnám:

program usergraph;

var a,b,c D:integer;

x1,x2:real;

begin

write('a= '); readln(a);

write('b= ' ); readln(b);

write('c= ' ); readln(c);

D:=b*b-a*a*c;

if D>0 then begin x1=(-b+sqrt (D))/(2*a);

x2(-b-sqrt(D))/(2*a);

writeln( 'x1= ' , x1:0:2);

writeln('x2= ', x2:0:2);

end

else if D=0 then begin

x1=-b/(2*a);

writeln('x= ', x1:0:2);

end

else writeln ('nincs megoldas ');

readln;

end.

Nah ezt kéne vmivel kiegészíteni fent h a 3-adfokubol másodfoku legyen és....A segítséget megköszönném!!