Program BAT_PHUONG_TRINH_BACI;
Uses crt;
Var a,b: real;
BEGIN
Clrscr;
Writeln('GIAI BAT PHUONG TRINH BAC NHAT: AX + B < 0'); Writeln('———————————————————————-');
Write('nhap a=');readln(a);
Write('nhap b=');readln(b);
If a<>0 then If a>0 then
Writeln('Bat phuong trinh co nghiem: x>=',-b/a:4:2)
Else
Writeln('Bat phuong trinh co nghiem: x<=',-b/a:4:2)
Else
If b<=0 then Writeln('Bat phuong trinh co vo so nghiem')
Else
writeln('Bat phuong trinh vo nghiem');
Readln;
END.
