Program Task_1;
Var
a : array [0..100] of integer;
i,n : integer;
Begin

read(n);
for i := 0 to n do
   begin
       read(a[i]);
       if (i mod 2 = 0) then
          write(a[i], ' ');
   end;

End.