Program Tenchuongtrinh;
Uses crt;
Var  A: array[1..100] of longint;
       n:longint;

Procedure Nhap;
  var  i:longint;
  begin
    write('Nhap so phan tu cua day n= '); readln(n);
    for i:=1 to n do
      begin
        write('A[',i,']= '); readln(A[i]);
      end;
   end;

Procedure  Tinhtong;
  var  tong,i:longint;
  begin
    tong:=0;
    for i:=1 to n do
      if (A[i] mod 2=0) then tong:=tong+A[i];
    writeln('a. Tong cac so chan cua day la: ',tong);
  end;

Procedure Vtchan;
  var i:longint;
  begin
    write('b. Cac so o vi tri chan: ');
    for i:=1 to n do
      if (i mod 2=0) then write(A[i]);
  end;

Begin
         Clrscr;
         Nhap;
         Tinhtong;
         Vtchan;
         Readln;
End.