program ct;
uses crt;
type M=array[1..1000] of integer;
var A:M;
i:integer;
function N(x:M):integer;
var S:longint;
begin clrscr;
S:=0;
for i:=1 to 5 do
if x[i] mod 2=0 then S:=S+x[i];
N:=S;
end;
begin
for i:=1 to 5 do
begin
write('Nhap phan tu thu ',i,': '); readln(A[i]);
end;
N(A);
writeln('Tong cac so chan: ',N(A));
readln;
end.
Học tốt!