var a,b,c:integer; x1,x2,d:real; begin writeln('Vvedite koefficienti uravneniya A,B,C'); readln(a,b,c); if a=0 then writeln('uravnenie ne kvadratnoe') else begin d:=b*b-4*a*c; if d<0 then writeln('Net korney!') else if d=0 then begin x1:=-b/(2*a); writeln('x1=x2=',x1:0:2); end else if d>0 then begin x1:=(-b-sqrt(d))/(2*a); x2:=(-b+sqrt(d))/(2*a); writeln('x1=',x1:0:2,' x2=',x2:0:2); end; end; end.