uses crt;
var a,b :real;
begin
clrscr;
writeln('Nhap he so a,b: ');readln(a,b);
writeln('PT co dang: (',a:0:4,')x + (',b:0:4,') = 0');
If (a=0) and (b<>0) then writeln('PT vo nghiem');
If (a=0) and (b=0) then writeln('PT vo so nghiem');
If a<>0 then writeln('Nghiem cua pt la: ',(-b)/a:0:4);
readln;
end.