(VCT được nhưng không biết MT sao cho hợp lí)
program ct;
uses crt;
var a, b: integer;
begin
clrscr;
write('Nhap a = '); readln(a);
write('Nhap b = '); readln(b);
if (a=0) and (b=0) then write('Phuong trinh vo so nghiem');
if (a=0) and (b<>0) then write('Phuong trinh vo nghiem');
if a<>0 then write('Phuong trinh co nghiem: x = ', -b/a);
readln
end.