{Câu 13: Viết chương trình để giải pt bậc 2}
program CT;
uses crt;
var a,b,c,d:real;
begin
clrscr;
write('nhap a: ');readln(a);
write('nhap b: ');readln(b);
write('nhap c: ');readln(c);
d:=b*b-(4*a*c);
if d < 0 then write('phuong trinh vo nghiem');
if d = 0 then write('phuong trinh co nghiem kep x1=x2=', (-b)/(2*a):0:6);
if d > 0 then
write('phuong trinh co hai nghiem phan biet x1= ',((-b)-sqrt(d))/(2*a):0:6,' x2= ',((-b)+sqrt(d))/(2*a):0:6);
readln;
end.