uses crt; 
var n,i,t,t1:longint; 
a:array[1..20] of longint; 
begin clrscr; 
write('nhap n:');readln(n); 
for i:=1 to n do readln(a[i]); 
for i:=1 to n do if a[i] mod 2=0 then t:=t+i; 
for i:=1 to n do ì a[i] mod 2=1 then t1:=t1+i; 
writeln('tong cac so chan la:',t); 
writeln('tong cac so le la:',t1); 
end.