const nn=10;
var
a:array[1..nn] of integer;
i,n:integer;
begin
write('Введите количество элементов массива: ');
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i],' ');
writeln;
for i:=n downto 1 do write(a[i],' ');
end.
const nn=50;
var
a:array[1..nn] of integer;
i,n:integer;
begin
write('Введите количество элементов массива: ');
readln(n);
for i:=1 to n do readln(a[i]);
writeln;
for i:=1 to n do if i mod 2 =0 then write(a[i],' ');
end.