uses crt;
var  b,c,x : real;
begin
clrscr;
writeln( ' nhap so b: '); 
readln(b); 
writeln('  nhap so c: '); 
readln(c); 
IF b<> 0 THEN writeln ( ' nghiệm của phương trình là:', -c/b) 
else 
IF c=0 THEN writeln ( ' phương trình có vô số nghiệm'); 
else write(' phương trình vô nghiệm'); 
readln
end.