... x1=x2=’, -m /2* n);8. If DT > 0 then9. Begin 10 . x1:= (-m –sqrt(DT)) /2* n; 11 . x1, x2: real; 12 . End. 13 . End; 14 . If DT = 0 then 15 . DT:= sqr(m) – 4*n*z; 16 . If DT<0 then 17 . Begin 18 . ... Program vd; 11 . Readln; 2. Var a,b,c:byte;4. x1:= (-m –sqrt(DT)) /2* n;6. x1, x2: real;8. x2:= (-m+sqrt(DT)) /2* n; 10 . Begin 13 . Writeln(pt co nghiem kep x1=x2=, -m /2* n); 15 . If DT > 0 then 17 . Writeln(nhaọp ... 4*n*z; 15 . If DT<0 then 16 . Begin 17 . Writeln(‘pt co 2 nghiem x1’, x1,’x2= ‘,x2); 18 . Var a,b,c:byte; 19 . Writeln(‘nhập vào 3 số a,b,c ‘); 20 . Var DT:byte; 21 . x2:= (-m+sqrt(DT)) /2* n; 22 . Begin 23 ....