Giúp mình vớiiiiiiiiii

Câu 9 :

- Biến đếm trong câu lệnh For .. do thường là biến kiểu nguyên

Câu 10 :

uses crt;

var i, S : integer;

begin

clrscr;

i := 2; S := 0;

while i <= 20 do

    begin

        S := S + i;

        i := i + 2;

    end;

write('Tong = ', S);

readln

end.

Câu 11 :

uses crt;

var B : array [1 .. 49] of integer;

i, N, S : integer;

begin

clrscr;

write('Nhap N = '); readln(N);

write('Nhap mang gom ', N ,' so : ');

for i := 1 to N do

    begin

        read(B[i]);

        S := S + B[i];

    end;

write('Tong cac phan tu = ', S);

readln

end.