Viết chương trình giải phương trình bậc nhất với điều kiện ( a khác 0) Tin học 11 ạ

Program baitap;

Uses crt;

Var a,b,x:real;

Begin

Clrscr;

Write ('a= '); Readln(a);

Write ('b= '); Readln(b);

If a=0 then 

     If b=0 then Writeln(' Phuong trinh co vo so nghiem')

                Else Writeln(' Phuong trinh vo nghiem')

Else Writeln('Phuong trinh co nghiem x=',-b/a:6:2);

Readln;

End.

program tinh;

uses crt;
var a,b,x:real;
begin
clrscr;
writeln('nhap a: '); readln( a);
write(' nhap b: '); readln( b);
if ((a=0 ) and (b=0)) then write('phuong trinh vo so nghiem') 
else 
if ((a=0) and (b<>0)) then write('pt vo nghiem') 
else
begin
x:=-b/a;
write('phuong trinh  co nghiem x :',x);
readln;
end;
end.