Nhập a,b nguyên. Hãy giải và biện luận phương trình ax + b = 0 Nếu vô nghiệm thông báo none Nếu vô nghiệm thông báo multiple Nếu có nghiệm, đưa ra dạng x = -b/a Mình đang cần gấp ạ, bạn nào giúp mình với ạ

Program NhatNgu;
Uses crt;
Var a,b: extended;

Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        Write('Nhap b: '); Readln(b);

        If (a=0) then
                If (b=0) then Write('Multiple')
                Else Write('None')
        Else Write('X = ',-b/a:0:2);
        Readln
End.

uses crt;

var a, b : integer;

begin

clrscr;

write('Nhap hai so a, b = '); readln(a, b);

if (a = 0) and (b = 0) then write('Multiple');

if (a = 0) and (b <> 0) then write('None');

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

readln

end.