triệu hồi mấy má giỏi Tin giúp em bài này nha! Viết chương trình giải phương trình bậc nhất bx+c=0; với b, c là tham số. giúp em mn ơi!!!

Thuật toán

input hai số a và b

ouput kq pt bậc nhất 

Bước 1: Nhập hai số a và b

Bước 2: Xét nếu a = 0 và b=0 thì pt có vô số nghiệm 

nếu a=0 và b<>0 thì pt vô nghệm

bước 3: nếu a <>0 => x<-b/a

bước 4 : in ra kết quả và kết thúc thuật toán

Chương trình 

Program Hotboy ;

Uses crt;

Var a,b,x : integer;

Begin

Clrscr

Write(' giai phuong trinh bac nhat ax+b=0');

Write(' nhap so a',a);

Readln(a);

Write('nhap so b',b);

Readln(b)

If a<>0 then

x:=-b/a;

Write('phuong trinh co 1 nghiem duy nhat la',x:2:2)

Else

If a=0 and b=0 then write(' phuong trinh co vo so nghiem');

If a=0 and b<>0 then

Write('phuong trinh vo nghiem');

Readln

End.