TTCHAN PASCAL

var a:array[1..1000000] of longint
    n,i:longint;
procedure nhap;
var i:longint;
begin
    readln(n);
    for i:=1 to n do
        read(a[i]);
end;
procedure giai;
var i:longint;
begin
    for i:=1 to n do
        if i mod 2 = 0 then 
            write(a[i], ' ');
end;
begin
    assign(input, 'ttchan');reset(input);
    assign(output, 'ttchan.out');rewrite(output);
    nhap;
    giai;
end.