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

Var
a,b,c,d:real;
    begin
        writeln('a,b,c ?');
        readln(a,b,c);
        d:=sqr(b)-4*a*c;
            if d<0 then  writeln('d<0');   
                if d>0 then       
                     writeln('x1= ',((-b)+sqrt(d))/(2*a),'  x2= ',((-b)-sqrt(d))/(2*a)) ;         
                         if d=0 then             
                            writeln('x1= ',(-b)/(2*a)); 
end.