uses crt;
var a: array[1..100] of integer;
n,i: integer;
begin
clrscr;
write('Nhap N: ');
readln(n);
for i:= 1 to n do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:= 1 to n do
if a[i] mod 2 = 0 then
write('So chan: ',a[i],' va chi so: ',i);
readln
end.