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 Dthen  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.