viết chương trình giải phương trình ax+ b= 0 với các hệ số a, b được nhập từ bàn phím PASCAL nhan

program Phuong_trinh;
uses crt;
var a,b : real;
begin
clrscr;
write ('Nhap so a:'); readln(a);
write ('Nhap so b:'); readln(b);
if (a<>0) then writeln ('Nghiem cua phuong trinh la:', -b/a);
if (a=0) and (b=0) then writeln ('Phuong trinh co vo so nghiem');
if (a=0) and (b<>0) then writeln ('Phuong trinh vo nghiem');
readln
end.

program bai_lam;

uses crt;

var a,b: real;

begin

clrscr;

writeln('CHUONG TRINH GIAI PT AX+B=0');

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

if (a<>0) then writeln('phuong trinh',a:10:2',x+',b:10:2',=0',' co nghiem x=;',-b/a:10:2);

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

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

readln

end.