uses crt;
var
b,c,x :longint ;
begin
clrscr;
write(' nhap b , c :' ); read(b,c );
if b = 0 then write(' pt vo nghiem' )
else
if (b = 0) and (c=0) then write(' pt vo so nghiem')
else
if b <>0 then
begin
if (c=0) then write( ' nghiem cua pt : x = 0 ')
else
if (c <> 0) then
begin
x:= -c/b;
write(' nghiem pt :' ,x);
end;
readdln;
end.