uses crt;
var i,n,s:integer;
    a:array[1..1000] of integer;
const Fi='MANG.INP';
      Fo='MANG.OUT';

begin
 assign(input,Fi); reset(input);
 assign(output,Fo); rewrite(output);
 readln(n);
 s:=0;
 For i:=1 to n do
  begin
   read(a[i]);
   if a[i] mod 2=0 then s:=s+a[i];
  end;
 writeln(s);
 readln;
end.

Vote cho mik hay nhất nha :3

uses crt;
var f:text;
    n,i,res:longint;
    a:array[1..100]of longint;
begin
clrscr;
    assign(f,'MANG.INP');reset(f);
        readln(f,n);
        for i:=1 to n do read(f,a[i]);
    close(f);
    assign(f,'MANG.OUT');rewrite(f);
        for i:=1 to n do
            if a[i] mod 2=0 then inc(res,a[i]);
        write(f,res);
    close(f);
end.