viết chương trình để giải phương trìng bậc nhất : ax+b=0 với 2 số a và b là số nguyên được nhập từ bàn phím giúp mình đi ạ, ctlhn

Program baitap;

Uses crt;

Var a,b:integer;

Begin

Clrscr;

Writeln('a='); Readln(a);

Writeln('b='); Readln(b);

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');

If a<>0 then write('Phuong trinh co nghiem la: ',-b/a:5:2);

Readln;

End.

uses crt;

var a, b : integer;

begin

clrscr;

write('nhap he so a va b : ');readln(a, b);

if (a = 0) and (b = 0) then writeln('phuong trinh vo so nghiem');

if (a = 0) and (b <> 0) then writeln('phuong trinh vo nghiem');

if a <> 0 then writeln('nghiem phuong trinh x = ', -b/a:3:1);

readln

end.