uses crt;
var a:array[2..250]of integer;
i,n,dem:integer;
begin
clrscr;
write('n='); readln(n);
if (2<=n) and (n<=250) then
begin
for i:=2 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=2 to n do
if (a[i]>0) and (a[i] mod 2=0) then inc(dem);
writeln('so cac so duong chan trong day la: ',dem);
end
else writeln('vui long nhap lai n');
readln;
end.

Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,d: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        d:=0;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If A[i] mod 2 = 0 then inc(d);
        End;
        Write('Co ',d,' so chan');
        Readln
End.