uses crt;
var a,b: integer;
x: real;
begin
write ('nhap a: ');  readln(a);

write ('nhap b: ');  readln(b);
if a=0 then
if b<>0 then writeln ('PT vo nghiem')
else if b=0 then writeln ('PT co vo so nghiem')
else
begin
x:=-b/a;
writeln (x:1:2);
end;
readln;
end.

$#Trumtinhoc$

Uses crt;
Var a,b:integer;
Begin
Clrscr;
Write ('Nhap a= '); readln(a);
Write ('Nhap b= ');readln(b);
Writeln('giai phuong trinh ',a,'x + ',b,' = 0');
If (a=0) then
 If (b=0) then
  Writeln(' Phuong trinh co vo so nghiem')
 Else
  Writeln(' Phuong trinh vo nghiem')
Else
Writeln('x= ',-b/a:3:1);
Readln;
End.