uses crt;
var n:longint; a:array[1..1000000]of longint;
Procedure Nhap;
var i:longint;
begin
write('Nhap N: ');readln(n);
for i:=1 to n Do
begin
write('a[',i,']=');readln(a[i]);
end;
end;
Procedure Xuat;
var i:longint;
begin
for i:=1 to n Do write(a[i],' ');
writeln;
end;
Procedure dem;
var i,d:longint;
begin
d:=0;
for i:=1 to n Do if a[i] mod 2=0 then inc(d);
writeln('Co ',d,' so duong trong day');
end;
begin
clrscr;
Nhap;
Xuat;
Dem;
readln
end.
