Trong câu lệnh khai báo biến mảng, phát biểu nào sau đây đúng

1. Trong câu lệnh khai báo biến mảng, phát biểu nào sau đây đúng 
A: Chỉ số đầu và chỉ số cuối là hai số nguyên
B: Chỉ số đầu nhỏ hơn chỉ số cuối 
C: Kiểu dữ liệu có thể là integer hoặc real
D: Cả 3 ý trên
2. Khi thực hiện đoạn chương trình sau: 
n:=1; T:=50;  while n>20 do begin n:=n+5; T:=T-n end; hãy cho biết giá trị của biến T bằng bao nhiêu? 
A: 17
B: 15
C: 16
D: 14
3. Trong câu lệnh lặp For i:=1 to 10 do begin...end; câu lệnh ghép được thực hiện bao nhiêu?
A: 1
B: 10
C: Không lần nào
D: 2
4. Sau khi thực hiện đoạn chương trình sau, giá trị của biến a bằng bao nhiêu? a:=0; For i:=1 to 3 do a:=a+1
A: 3
B: 4
C: 6
D: 2
5. Khai báo biến mảng: A: array[1..7] of real; Sử dụng câu lệnh For i:=1 to 5 do readln (A[i]); để dán giá trị cho các phần tử trong biến A từ bàn phím, ta sẽ nhập được bao nhiêu giá trị?
A: 5
B: 6
C: 4
D: 7
6. Cách khai báo biến mảng nào sau đây trong pascal đúng?
A: Var X: Array [10,13] of integer
B: Var X: Array [4..10] of real 
C: Var X: Array [10..1] of integer
D: Var X: Array [3,4..4,8] of integer 
7. Trong pascal, câu lệnh nào sau đây được viết đúng? 
A: For i:=4 to 1 do writeln ('A');
B: For i:=1 to 10 writeln ('A');
C: For i:=1 to 10 do writeln ('A');
D: For i to 10  writeln ('A');
8. Cho đoạn chương trình sau:
J:=0;
For i:=1 to 4 do j:=j+2;
Sau khi thực hiện đoạn chương trình trên giá trị của biến j bằng bao nhiêu?
A: 4
B: 6
C: 8
D: 10
9. If a>8 thenthen b:=3 Else b:=5, khi a nhận giá trị là 0 thìthì b nhận giá trị nào? 
A: 0
B: 3
C: 8
D: 5
10. Trong pascal, câu lệnh Writeln (16 mod 3) sẽ in lên màn hình kết quả là bao nhiêu?
A: 5
B: 1
C: 16
D: 3
11. Để tìm giá trị lớn nhất của hai số a, b thì ta viết 
A: Max:=a; if b> Max then Max:= b;
B: If ( a>b ) then Max:=a; if ( b>a ) then Max:=b;
C: Max:=b; if b> Max then Max:=a;
D: Cả 3 đều đúng 
12. Câu lệnh pascal nào sau đây hợp lệ?
A: I:=1; S:= 0; While S<5 do begin S:= S+i; i:= i+1; end;
B: I=1; S:= 0; While S<5 do begin S:= S+i; i:= i+1 end;
C: I=1; S:= 0 While S<5 do i:= i+1; 
D: I=1; S:= 0; While S<5 do  i:= i+1; S:= S+i; 
​Làm chính xác cho mình với ạ