Решить уравнение в паскаль a*sqr(x)+bx+c=0

var a,b,c,d:real; begin write('Введите A=');read(a); write('Введите B=');read(b); write('Введите C=');read(c); D:=sqr(b)-4*a*c; if D<0 then begin writeln('D=',D,' ', 'Нет корней');end; if D=0 then begin writeln('D=',D,' ', 'x1=', -b/(2*a));end; if D>0 then begin writeln('D=',D,' ','x1=',(-b-sqrt(d))/(2*a)); writeln('D=',D,' ','x2=',(-b+sqrt(d))/(2*a)); end; end.