Sửa:

Var a, b, c, d: integer;

begin

a:=40000;

b:=10000;

c:=a/b;

d:=a+b;

Writeln (' Gia tri bien c sau khi tinh toan là:', c);

Writeln (' Gia tri bien d sau khi tinh toan là:', d);

Readln;

End.

Gửi bạn

$\text{Linh}$

Dòng 1 : tên không được có dấu cách;
Dòng 2 : sai dấu bằng phải đổi thành dấu hai chấm
Dòng 3 : 40000 được gán cho biến a, nhưng biến a là kiểu integer phạm vị giá trị từ -32768 đến 32767, vượt phạm vi giá trị của integer;
Dòng 4 :
*  c := a/b =>c được khai báo là kiểu nguyên, nhưng phép gán giá trị biến c thuộc kiểu thực . vd : a = 3, b =2 => c = 1.5 => kiểu thực.
* d := 'a + b'; => d được khai báo là kiẻu nguyên nhưng được giá trj của biến d thuộc kiểu xâu kí tự
Dòng 5, 6 : Đúng => nên ghi writeln để các dòng đầu ra không cùng trên một hàng
Dòng 7 : Đúng => readln không nhất thiết phải có chấm phẩy
Dòng 8 : Đúng