uses crt;
var n,i,d : integer;
a : array[1..100] of integer;
begin clrscr; d:=0;
write('Nhap n :'); readln(n);
for i:=1 to n do begin write('Nhap a[',i,']='); readln(a[i]); end;
for i:=1 to n do if (i mod 2 = 1) then if (a[i] mod 2=0) then d:=d+a[i];
write('Tong la :',d);
readln
end.

program oken; {ban co the doi ten program khi nop bai vi day la ban quyen cua minh}
uses crt;
var a: array [1..1000] of integer;
    i,n: integer;
    tong:longint;
begin
        clrscr;
        write('nhap so luong phan tu cua mang: '); readln(n);
        tong:=0;
        for i:=1 to n do
                begin
                        write('a[',i,']: '); readln(a[i]);
                        if (i mod 2=1) then
                                if a[i] mod 2=0 then
                                        tong:=tong+a[i];
                end;
        writeln('tong cac so chan o vi tri le: ',tong);
        readln;
end.