Составьте программу на языке Паскаль для решения квадратного уравнения.Коэффициенты a,b и c вводятся с клавиатуры.На

Program kvadratnoe_yravnenie;Uses CRT;Var a, b, c, d, d1, x1, x2 : real;Begin CLRSCR; Writeln( ‘ введите первый коэффициент a= ’ ); Readln(a);Writeln( ‘ введите второй коэффициент b= ’ ); Readln(b); Writeln( ‘ введите третий коэффициент c= ’ ); Readln(c); d:=sqr(b)-4*a*c; if d>=0 then begin d1:=sqrt(d); x1:=(-b+d1)/2*a; x1:=(-b-d1)/2*a; writeln(‘ x1= ’ , x1:5:2); writeln(‘ x2= ’ , x2:5:2); end; else begin writeln(‘ уравнение не имеет действительных корней ‘ ); end;repeat until keypressed;END.