Viết chương trình giải bất phương trình ax+b <=0 với a,b nhập từ bàn phím

Pascal:
Program GiaiPT ax+b;

user crt;

Var a,b:real;

Begin

Writeln('GIAI BAT PHUONG TRINH BAC NHAT: AX + B>=0'); Writeln('----------------------------------------------------------------------');

Write('nhap a='); r

eadln(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)

If b>=0 then

Else 

Writeln('Bat phuong trinh co vo so nghiem')

Else writeln('Bat phuong trinh vo nghiem');

Readln;

End.

- Giải bất phương trình ax + b $\leq$ b

uses crt;

var a, b : integer;

begin

clrscr;

write('nhap hai so a va b : '); readln(a, b);

if (a = 0) and (b <> 0) then write('phuong trinh vo nghiem');

if (a = 0) and (b = 0) then write('phuong trinh vo so nghiem');

if a > 0 then write('nghiem x $\leq$ ', (-b) / a : 2 : 1);

if a < 0 then write('nghiem x $\geq$ ', (-b) / a : 2 : 1);

readln;

end.