Bất phương trình bậc nhất

Viết chương trình giải bất phương trình bậc 1 (ax + b >=0)

                                                           Lời giải tham khảo

Program BAT_PHUONG_TRINH_BAC_I;
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.