Program GIAI_PHUONG_TRINH_BAC_NHAT;
Var a,b,x:real;

Begin
Clrscr;
Writeln('GIAI PHUONG TRINH BAC NHAT: AX + B=0');
Writeln('------------------------------------------------------------');
Write ('Nhap a: ');   readln(a);
Write ('Nhap b: ');   readln(b);
If(a=0) and (b=0) then Writeln(' Phuong trinh co vo so nghiem')

Else
writeln(' Phuong trinh vo nghiem')
Else
Writeln('Phuong trinh co nghiem x=',-b/a:4:2);

Readln;

End.

Program giaiphuongtrinh

Uses crt;

Var a, b : integer;

Begin

    clrscr;

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

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

    If a = 0 then

           if  b =  0 then writeln('Phuong trinh da cho co vo so nghiem')

           else writeln('Phuong trinh da cho vo nghiem')

    Else writeln('Nghiem cua phuong trinh da cho la x = ', -a/b);

    Readln;

End.