Составьте программу!!! найти корни квадратного уравнения, если мы предполагаем,что x=0, x больше 0, х меньше 0. помогите пожалуйста

Var a,b,c:integer;D,x1,x2:real;beginwriteln(введите a);readln(a);writeln(введите b);readln(b);writeln(введите c);readln(c);D:=sqr(b)-4*a*c;if (D>0) thenbeginx1:=(-b+sqrt(d))/(2*a);x2:=(-b-sqrt(d))/(2*a);writeln(дискриминант больше нуля= ,d);writeln(x1= ,x1);writeln(x2= ,x2);end;if (d=0) thenbeginx1:=-b/(2*a);writeln(d=0);writeln(x1,2= ,x1);end;if (d<0) then writeln(корней нет!);end.

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