Viết thuật toán.Giải phương trình ax+b=0 Mọi người giúp em với ạ em sẽ cho 5*

uses crt;

var a,b :real;

begin

clrscr;

writeln(‘Nhap he so a,b: ‘);readln(a,b);

writeln(‘PT co dang: (‘,a:0:4,’)x + (‘,b:0:4,’) = 0′);

If (a=0) and (b<>0) then writeln(‘PT vo nghiem’);

If (a=0) and (b=0) then writeln(‘PT vo so nghiem’);

If a<>0 then writeln(‘Nghiem cua pt la: ‘,(-b)/a:0:4);

readln;

end.