program ii; var a, b, c, d: real; begin writeln ('введите коэффициенты а, в, с'); readln (a, b, c); if a=0 then writeln ('уравнение не квадратное') else begin d : = b*b - 4*a*c; a : = 2*a; if d< 0 then writeln ('действительных корней нет') else if d=0 then writeln ('корни равны: x1 = x2 = ', -b/a) else begin d : = sqrt(d); writeln ('x1 = ', (-b+d)/a); writeln ('x2 = ', (-b-d)/a); end; end; end.