{Bài 8: Viết chương trình giải phương trình ax+b = 0?}
program ptbac1;
uses crt;
var a,b,x: real;
begin
clrscr;
writeln('Giai phuong trinh ax+b=0');
write('Nhap he so a: '); readln(a);
write('Nhap he so b: '); readln(b);
if a=0 then
if b=0 then writeln('Phuong trinh co vo so nghiem')
else writeln('Phuong trinh vo nghiem')
else writeln('Pt co nghiem duy nhat la x=',-b/a:0:2);
readln;
end.