program giai_phuongtrinh;

uses crt;

var a,b:integer;

begin

        clrscr;

        repeat

                write('Nhap a: ');  readln(a);

                if a=0 then writeln('a phai khac 0 de duoc phuong trinh');

        until a<>0;

        write('Nhap b: ');  readln(b);

        write('=> x= ',-b/a:2:2);

        readln;

end.

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