Var a, b : integer; x, y : real; Const c : 2; Begin a := 7 ; b =8 a:=x; y:= a mod b; Writeln(x:4); Writeln(y:4:2); c:=2; Writeln(x

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