Проанализируйте задачу решения биквадратного уравнения, составьте и напишите программу на Паскале.

Программа для нахождения корней биквадратного уравнения, представляет собой алгоритмическую структуру ветвление.

program bikv;
uses crt;
var a,b,c,d,x1,x2,x3,x4,t1,t2: real;
begin
writeln('Программа для решения биквадратного уравнения вида ax^4+bx^2+c');
write('введите a= ');
read(a);
write('введите b= ');
read(b);
write('введите c= ');
read(c);
d:=b*b-4*a*c;
if d<0 then writeln('Уравнение не имеет действительных корней')
else
begin
t1:=(-b+sqrt(d))/(2*a);
t2:=(-b-sqrt(d))/(2*a);
end;
if (t1<0) then writeln('x1 и x2 не действительные корни')
else
begin
if t1>0 then x1:=sqrt(t1);
x2:=-x1;
write('x1=',x1,';','x2=',x2,';');
end;
if (t2<0) then writeln('x3 и x4 не действительные корни')
else
begin
if t2>0 then x3:=sqrt(t2);
x4:=-x3;
write('x3=',x3,';','x4=',x4,'.');
end;
end.

а