Câu 4 a) for i=1 to 10 do wireln(‘A’); b)Var X: array [5 ......10] Of integer; c)X:=10;while X=10doX:=X+5; đ)if x>5 then a:=b; else m:=n; e) Var a:array(1...10,5)of internet; f)a:=0;s:=0; While a<10do s:=s+a; a:=a+1;end; Câu nào sai hãy sữa lại cho đúng Giúp mk vs mn

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.

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;