Составить алгоритм вычисления корней квадратного уравнения

Ax²+bx+c=0 пример: 2х²+х-6=0 a=2 b=1 c=-6 1)d(дискриминант)=b²-4*a*c d=(1)²-4*2*(-6)=49> 0=> 2 разных корня °если: d> 0=> 2 разных корня, °если: d< 0=> корней нет °если: d=0=> 2 одинаковых корня 2)x1,2=-b±√d/2*a x1=-1+√49/2*2=-1+7/4=6: 4=3/2=(одна целая,одна вторая)-это запиши в цифрах x2=-1-√49/2*2=-1-7/4=-8/4=-2 ответ: -2; (одна целая,одна вторая) вот и все)

var n, n1, n2, n3, k: integer;

begin readln(n); n1 : = 1; n2 : = 1; n3 : = 2; k : = 0; if (n=1) or (n=2) then k : = 1; while n3 < = n do begin if n3=n then k : = 1; n1 : = n2; n2 : = n3; n3 : = n1 + n2; end; if k = 1 then writeln(n, ' является числом фибоначчи') else writeln(n, ' не является числом фибоначчи'); end.