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.
