Помогите решить в паскаль

ax^4+bx^2+c=0

Пишу с телефона если есть возможность-проверь. Если справился, буду рад)

Uses CRT;

Var a, b, c, D, x, x1, x2 : integer;

Begin

D:=0;

Writeln ('Дано уравнение ax^4+bx^2+c=0, введите а, b, c) ;

Readln (a) ; readln (b) ; readln (c) ;

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

If D<0 then writeln ('Нет корней') ; if X=0 then writeln ('Уравнение имеет 1 корень-', (-b/2a) * b') ;

if D>0 then begin

x1: = (-b + sqrt D) / 2a;

x2: = (-b - sqrt D) / 2a;

writeln ('Корни вашего уравнения:') ; writeln ('x1=', x1*b,'x2=', x2*b) ;

End;

End.