Giải bất phương trình bậc nhất một ẩn ax+ b<0 (if- then-else)

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.

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 so nghiem');

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

if a <> 0 then 

if a > 0 then write('nghiem x < ', (-b) / a : 2 : 1)

else write('nghiem x > ', (-b) / a : 2 : 1);

readln;

end.