uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------------------------------------------------}
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln('tong cac so chan trong day so la: ',t);
readln;
end.

Program BTH;
Uses crt;
var a,b,d,e:longint;
procedure BTH;
Begin
for d:=1 to a do
Begin
write('Nhap so thu ',d,' cua day: ');readln(e);
If e mod 2=0 then
b:=b+e;
end;
end;
Begin
clrscr;
Write('Nhap so phan tu co trong day la: ');readln(a);
b:=0;
BTH;
Writeln('Tong so chan co trong day la: ',b);
readln;
End.