program giai_pt_bac_nhat;
uses crt;
var x,a,b : real;
begin
clrscr;
writeln('nhap vao he so a,b');
readln(a,b);
x:=-b/a;
if a <> 0 then
writeln('phuong trinh co nghiem ',x:4:2) else
begin
if b = 0 then writeln('phuong trinh co vo so nghiem')
else writeln('phuong trinh vo nghiem');
end;
readln;
end.