Ax^2+bx=0 решите через Паскаль пожааалуйста

Uses crt;
var a,b,c,x1,x2,x,D:real;
begin
writeln(Введите коэффициенты уравнения);
writeln;
write(a= );
readln(a);
write(b= );
readln(b);
write(c= );
readln(c);
D:=b*b-4*a*c;
if D<0 then
writeln(Корней нет)
else
begin
if D=0 then
x:=-b/(2*a);
writeln (x= ,x);
else
begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
writeln (x1= ,x1);
writeln (x2= ,x2);
end;
end;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.