Giải phương trình bậc nhất

Viết chương trình giải phương trình bậc nhất ax+b=0

Program GIAI_PHUONG_TRINH_BAC_NHAT;
Uses crt;
Var a,b,x: real;
Begin
  Clrscr;
  Writeln('GIAI PHUONG TRINH BAC NHAT: AX + B=0');
  Writeln('------------------------------------------------------------');
  Write ('Nhap a= '); readln(a);
  Write ('Nhap b= '); readln(b);
  If(a=0) then
    If(b=0) then Writeln(' Phuong trinh co vo so nghiem')
      Else writeln(' Phuong tring vo nghiem')
  Else Writeln('Phuong trinh co nghiem x=',-b/a: 4: 2);
  Readln
End.

Các bạn có để ý dòng Readln ở gần End. không có dấu ; không, thông thường dòng lệnh cuối cùng trước End. không cần phải ; cũng không bị báo lỗi.