Việt công thức giải bất phương trình ax + b 0

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

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 a0 then       If a>0 then          Writeln['Bat phuong trinh co nghiem: x>=',-b/a:4:2]       Else          Writeln['Bat phuong trinh co nghiem: x