Решить биквадратное уравнение - Free Pascal

Формулировка задачи:

Помогите сделать прогу на биквадратное уравнение очень нада !!!

Решение задачи: «Решить биквадратное уравнение»

Листинг программы

program ad;
uses crt;
var a,b,c,d:integer;t1,t2,x1,x2,x3,x4:real;
begin
clrscr;
writeln('введите коэфициенты');
readln(a,b,c);
d:=sqr(b)-4*a*c;
t1:=(-b-sqrt(d))/(2*a);
t2:=(-b+srt(d))/(2*a);
if t1>=0 then begin x1:=sqrt(t1);x2:=-sqrt(t1);end;
if t2>=0 then begin x3:=sqrt(t2);x4:=-sqrt(t2);end;
writeln('корни равны = ',x1,' ',x2,' ',x3,' ',x4);
end.

Объяснение кода листинга программы

Программа на языке Free Pascal с постановкой задачи - решить биквадратное уравнение.
Используется модуль CRT ( консольный ввод/вывод).
Введены следующие переменные: a, b, c, d, t1, t2, x1, x2, x3, x4 (реальные числа).
Выводится сообщение введите коэфициенты и происходит считывание коэфициентов a, b, c с помощью функции readln().
Переменная d вычисляется как квадрат разности b и 4ac.
Вычисляются корни уравнения с помощью формулы дискриминанта.
Если корни t1 и t2 определены и неотрицательны, то вычисляются значения x1, x2, x3, x4 как квадратный корень из t1 и -t1 соответственно.
Выводится сообщение корни равны = и значения x1, x2, x3, x4.