Cоставьте программу для решения уравнения x^2+kx+b больше 0

Var a, k, b, D, X, X1, X2 : real; begin writeln ('введите коэффициенты уравнения (a, k, b) '); readln(a,k,b); if a=0 then     if k=0 then               if b=0 then writeln('X - любое число')              else writeln('корней нет! ')         else          begin          X:=-b/k;         writeln('X=',X:8:3);         End     else    begin    D:=k*k-4*a*b;    if D<0 then  writeln ('Корней нет! ')       else       begin       X1:=(-k+sqrt(D))/2/a;       X2:=(-k-sqrt(D))/2/a;       writeln ('X1=', X1:8:3, ' X2=',X2:8:3);        end;    end; end.