viết ct xác định số lần xuất hiện các số nguyên chẵn và tính tổng các số đó trong dãy n số nguyên nhập từ bàn phím (n>=1)?

uses crt;
var n, x, i, cnt, res: Longint;
begin
clrscr;
    readln(n);
    for i:=1 to n do 
        begin
            read(x);
            if x mod 2 = 0 then 
                begin
                    inc(cnt);
                    inc(res, x);
                end;
        end;

    writeln(cnt);
    writeln(res);
readln;
end.

uses crt;
var i,n,s,d:longint; a:array[1..10000]of longint;
begin
clrscr;
   write('Nhap n: ');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
            begin
               inc(d);
               inc(s,a[i]);
            end;
      end;
   writeln('So lan xuat hien: ',d);
   writeln('Tong: ',s);
readln
end.