*Lỗi sai:
- Thiếu phần khai báo thư viện
- Dòng thứ 3: const c = 2; (không phải dấu 2 chấm)
- Dòng thứ 5: b:=8; (Thiếu dầu bằng và dấu chấm phẩy)
- Dòng thứ 6: x:=a; ("x" gán cho "a", tức x = giá trị của a)
- Dòng thứ 10: Bỏ dòng này (Vì đã khai báo hằng ở trên)
- Thêm "readln" vào trước "end." (Không cần dấu chấm phẩy)
*Sửa chương trình:
Uses crt;
Var a,b: integer;
x,y: real;
Const c=2;
Begin
Clrscr;
a:=7; b:=8;
x:=a;
y:=a mod b;
Writeln(x:4);
Writeln(y:4:2);
Writeln(x mod c);
Readln
End.