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

program acxD;uses crt;var a,c,D:integer;    x1,x2:real;beginWriteln('Vvedi a,c');readln(a,c);D:=1-4*a*c;if D>0 then beginwriteln('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.