Sửa lại như thế này:
uses crt;

var a,b,x : real;

begin

Clrscr:

Write('Nhap so a');

Readln(a);

Write('nhap so b');

Readln(b);

If a= 0 then

 If b= 0 then

  writeln('Phuong trinh vo so nghiem' );

 end

 else if a<>0 then

  begin

  x:= -b/(2*a);

  Writeln('pt co 1 nghiem la:', x:0:2);

  end

 else if a:= 0 then

 writeln(' phuong trinh vo nghiem' );

 Readln;

end

Lỗi xảy ra vì sau ở dòng if thứ 2, không có begin mà bạn lại gõ end sau đó.

Bạn chỉ cần xóa end đi. Xóa xong chương trình vẫn chưa chạy được, hãy xóa luôn dấu ; trước end

Sửa lại:

uses crt;
Var a,b, x : real;
Begin
Clrscr;
Write('Nhap so a'); Readln(a);
Write('nhap so b'); Readln(b);
If a= 0 then
If b= 0 then writeln('Phuong trinh vo so nghiem' ) else if a<>0 then
Begin
x:= -b/(2*a);
Writeln('pt co 1 nghiem la:', x:0:2);
End
else if a= 0 then
writeln(' phuong trinh vo nghiem' );
Readln;
End.