Program BTT;
Uses crt;
Var a,b: real;
Begin
        Clrscr;
        Write('Nhap a, 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 Write('Nghiem cua phuong trinh la: ',-b/a:0:2);
        Readln
End.

Program GIAI_PHUONG_TRINH_BAC_NHAT;

Uses crt;

Var a,b,x: real;

BEGIN Clrscr;

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

Writeln('------------------------------------------------------------');

Writeln(‘Nhap a = ‘); readln(a);

Writeln(‘Nhap b= ‘); readln(b);

If a=0 then

If(b=0) then Writeln(' Phuong trinh co vo so nghiem')

Else writeln(' Phuong tring vo nghiem')

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

Readln;

END.