Nhờ anh chị giúp đỡ bài pascal

[mymyphung]

Giải giúp em đề bài tập này nhé! Em gái của em hiện đang học lớp 11 nhờ em chỉ giúp đề này nhưng em chưa bao giờ học qua chương trình pascal này cả. Xin cảm ơn anh/chị rất nhiều.
Đề: Viết chương trình cho phép nhập vào số phần tử và giá trị cho các phần tử của mảng 1 chiều và đếm xem có bao nhiêu số chẳn trong mảng.

 

[emtrongmattoi]

Mô tả: Ở đây tạm coi đề yêu cầu nhập vào n phần tử \[(n \leq 100)\]

Var A:array[1..100] of integer;
i,n,dem:integer;
Begin
Write('Nhap n:');Readln;
For i:=1 to n do
begin Write('Nhap phan tu:');Readln(A);
end;
dem:=0;
For i:=1 to n do If A mod 2 =0 then dem:=dem+1;
Write('So so chan dem dc la:',dem);
Readln
End.

 

[mymyphung]

Cảm ơn emtrongmattoi nhiều lắm!