Решить уравнение в паскаль

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.