Разработать программу в Pascal решения уравнения, использующую условный оператор.       Ax^2+x+c=0 m=2, n=3

program acxD; uses crt; var a,c,D:integer;     x1,x2:real; begin Writeln('Vvedi a,c'); readln(a,c); D:=1-4*a*c; if D>0 then begin writeln('V otvete x1,x2 :'); x1:=(1-sqrt(D))/2*a; x2:=(1+sqrt(D))/2*a; writeln('x1=',x1,' x2=',x2); end; if D=0 then begin writeln('x1=x2'); x1:=1/2*a; writeln('x=',x1); end; if D<0 then writeln('V otvete pystoe mnojestvo!'); end.