Const Fo='KETQUA.TXT';
Var g: text;
    A: array[1..1000] of longint;
    n,i: longint;
Begin
        Assign(g,Fo); Rewrite(g);
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
        End;

        For i:=1 to n do
                If A[i] mod 2 = 0 then Write(g,A[i],' ');
        Close(g);
End.

const fi='dulieu.txt';

fo='ketqua.txt';

var i:integer;

Dem:byte;

f1,f2:text;

a:array[1..100]of integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

Dem:=0;

for i:=1 to n do

begin

read(f1,a[i]);

If a[i] mod 2 = 0 then inc(dem);

end;

writeln(f2,dem);

close(f1);

close(f2);

end.