program test;
var
 arr:array[1..10] of integer;
 i,sum:integer;
begin
 for i:=1 to 10 do
 begin
  arr[i]:=random(100);
  writeln(arr[i]);
  if (arr[i] mod 2) = 0 then sum:=sum+arr[i];
 end;
writeln;
writeln(sum);
readln;
end.