Var a,b: real; begin readln(a, b); if a=0 then if b = 0 then writeln ('x - любое значение') else writeln ('x1 = 0'); if a> 0 then if (b> =0) then writeln ('x1 = 0') else writeln('x1=0 ', 'x2=',-sqrt(-b/a),' ', 'x3=',sqrt(-b/a)); if a< 0 then if (b< =0) then writeln ('x1 = 0') else writeln('x1=0 ', 'x2=',-sqrt(b/-a),' ', 'x3=',sqrt(b/-a)) end.