Составьте ! найти корни квадратного уравнения, если мы предполагаем,что 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.