program GIAI_PTB2;
uses crt; {khai bao thu vien}
var a, b, c: real; {khai bao bien}
D, x1, x2: real;
begin
clrscr; {cau lenh xoa man hinh}
write(' a, b, c: ');
readln(a, b, c); {nhap vao gia tri cua a, b, c.}
D:=b*b - 4*a*c; {gan gia tri cho bien D}
if D < 0 then writeln('Phuong trinh vo nghiem.');
else
begin
x1:= (-b - sqrt(D))/(2*a);
x2:= (-b + sqrt(D))/(2*a);
end;
readln;
end.
CHÚC BẠN HỌC TỐT!!!