создать программу для решения квадратного уравнения
2 0
a ⋅ x + b ⋅ x + c = (a,b,c – вводятся с клавиатуры), с помощью
оператора if рассматреть все случаи дискриминанта (в случае D<0 вывести
сообщение нет корней);

сщтые

program kv; var  a,b,c,D,x1,x2:real;     begin     Write('a= ');     ReadLn(a);     Write('b= ');     ReadLn(b);     Write('c= ');     ReadLn©;  D:=b*b-4*a*c;  if d<0  then writeln('НЕТУ КОРЕНЕЙ')   else if d=0 then writeln('ОДИН КОРЕНЬ= ',-b/2*a)   else begin           d:=sqrt(d);           x1:=(-b+d)/(2*a);           x2:=(-b-d)/(2*a);           WriteLn('x1=',x1);           WriteLn('x2=',x2);         end;   end.

const         text1='Enter a,b and c:';         text2='D=';         text3='There are no roots!';         text4='x=';         text5='x1=';         text6='x2=';         text7='Press any key to continue';var     a,b,c,x,x1,x2,D:real;beginwrite(text1);readln(a,b,c);D:=sqr(b)-4*a*c;writeln(text2,D);if D<0 thenwriteln(text3)else if D=o thenbegin x:=-b/(2*a);writeln(text4,x);endelsebeginx1:=(-b+sqrt(D))/(2*a);x2:=(-b-sqrt(D))/(2*a);writeln(text5,x1);writeln(text6,x2);end;end.