Задание

Программа решения квадратного уравнения вида ax2+bx+c=0. Выберите из предложенных вариантов пропущенный оператор:

var a,b,c: real;

x1,x2,D: real;

begin

readln(a,b,c);

D := ........ ;

if D < 0 then

writeln('Корней нет')

else if D = 0 then begin

x1 := -b/(2*a);

writeln('x1=x2=',x1);

end;

else begin

x1 := (- b - sqrt(D))/(2*a);

x2 := (- b + sqrt(D))/(2*a);

writeln('x1=',x1,' x2=',x2);

end;

end.

D := b - 4*a*c;

D := b*b - 4*a*c;

D := b*b - 4ac;

D := b - 4*a*c;