... bac2(var n, m, z :byte); x1:= (-m –sqrt(DT)) /2* n; Readln(a,b,c); x1, x2: real; Bac2(a,b,c); x2:= (-m+sqrt(DT)) /2* n; Program vd; 10 Begin 11 Readln; 13 Writeln(‘pt co nghiem kep x1=x2=’, -m /2* n); ... ‘,x2); 11 End Writeln(‘phương trinh vo nghiem’); 12 Begin 13 x1, x2: real; 14 Procedure bac2(var n, m, z :byte); 15 Writeln(‘pt co nghiem kep x1=x2=’, -m /2* n); 16 If DT = then 17 Var DT:byte; 18 ... -m /2* n); 15 If DT > then 17 Writeln(‘nhập vào số a,b,c ‘); 19 Writeln(‘pt co nghiem x1’, x1,’x2= ‘,x2); 21 End 23 If DT = then 12 Begin 14 Var DT:byte; 16 DT:= sqr(m) – 4*n*z; 18 If DT...