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

vara,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.