Program giaiphuongtrinh
Uses crt;
Var a, b : integer;
Begin
clrscr;
Write('Nhap a: '); readln(a);
Write('Nhap b: '); readln(b);
If a = 0 then
if b = 0 then writeln('Phuong trinh da cho co vo so nghiem')
else writeln('Phuong trinh da cho vo nghiem')
Else writeln('Nghiem cua phuong trinh da cho la x = ', -a/b);
Readln;
End.