Viết chương trình nhập dãy số in các số chẵn ra màn hình, tính tổng của các số chẵn có trong danh sách

[B][COLOR="Blue"]
Uses crt;
var a: array [1..1000] of integer;
i, n, tong: integer;
begin clrscr;
write ('Nhap so luong phan tu: '); readln (n);
for i:= 1 to n do begin write ('Nhap phan tu thu ',i,': '); readln (a[i]);
if a[i] mod 2 = 0 then tong:=tong+a[i];
end;
write ('Cac so chan trong day: ');
for i:= 1 to n do
   if a[i] mod 2 = 0 then write (a[i],' ');
writeln; write ('Tong cac so chan la ',tong);
readln
end.

Cho mình vote 5 sao và câu trl hay nhất nhé, Thanks