program phuongt;
uses crt;
  var A: array[1..500] of integer; 
        i, n, s: integer;
begin
       clrscr;
       write('Nhap n = '); readln(n);
       s:=0;
       for i:=1 to n do
       begin
                 write('A[', i, '] = '); readln(A[i]);
                 if A[i] mod 2 = 0 then s:=s+A[i];
       end;
       writeln('Tong chan = ', s);
       write('Cac so le: ');
       for i:=1 to n do if A[i] mod 2 <> 0 then write(A[i]:3);
       readln
end.

uses crt;
var a:array[1..1000000] of longint;
        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]);
                        if a[i] mod 2=0 then s:=s+a[i];
                end;
        writeln('Tong cac so chan: ',s);
        write('Cac so le: ');
        for i:=1 to n do if a[i] mod 2=1 then write(a[i],' ');
        readln;
end.