*Mình ko biết là bạn đã ghi chưa nhưng mình bổ sung tất cả luôn nhé:

   - Bạn thiếu phần khai báo tên chương trinh và thư viện

   - Khi gán b=8 thì bạn thiếu dấu " : " và dấu " ; " cuối dòng đó

   - Trước khi ghi End. thì bạn nên có thêm lệnh Readln; để đọc màn hình

   - Ở dòng a:=x; bạn nên sửa lại là x:=a;

   - Vì ở trên bạn đã khai báo hằng c=2 (hằng không thể thay đổi) nên bên dưới không thể gán giá trị  c=2

*Sửa lại Chương trình:

program ct;

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:2);

   writeln(y:4:2);

   writeln(x mod c);

readln;

end.

Học tốt!

*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.