uses crt;
var a:array[1..100] of integer;n,i,s:integer;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      for i:=1 to n do
            begin
                  write('Phan tu thu ',i,': '); readln(a[i]);
            end;
      s:=0;
      for i:=1 to n do s:=s+a[i];
      writeln('Tong cac phan tu: ',s);
      write('Cac phan tu so chan: ');
      for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');
      readln;
end.

var i,n,s:longint;a:array[1..1000] of int64;
begin
        read(n);
        for i := 1 to n do
        begin
                read(a[i]);
        end;
        s:=0;
        for i := 1 to n do
        begin
                s:=s+a[i];
        end;
        write('tong cac pt la: ',s);
        for i := 1 to n do
        begin
                if a[i] mod 2 = 0 then
                begin
                        writeln(a[i],' ');
                end;
        end;
end.