a) sai chỗ: i=1, wireln

Sửa: For i:=1 to 10 do writeln ('A');

b) sai chỗ: array [5......10]

Sửa: Var x: array [5..10] of integer;

c) đúng

d) sai chỗ: a:=b; else

Sửa: if x>5 then a:=b else m:=n;

e) sai chỗ: array(1...10,5) of internet???

Sửa: Var A: array[1..10] of integer;

f) sai chỗ: thiếu begin 

Sửa: a:=0; s:=0;

        While a <10 do begin s:=s+a; a:=a+1; end;

a, For i:=1 to 10 do writeln('A');

b, Var X: array[5..10] of integer;

c, X:=10; while X:=10 do X=X+5;

d, if x>5 then a:=b; else m:=n; Đúng

e, Var a: array [1..10,5] of integer

    Câu khai báo biến mảng là ở chỗ array thì dùng dấu [ chứ không phải dấu (

f, Phải có begin ở đoạn đầu thì mới có end, đây là câu lệnh ghép nhỏ nha:

      Begin a:=0;s:=0; While a<10 do s:=s+a; a:=a+1; end.