{Дана лин. таб. a[1..n]. Ввести табл. b[1..n] отбросив из а каждый второй элм}

uses crt;
var 
a,b : array [1..10] of longint;
    k,i,j,n : integer;
begin
  clrscr;
  write('n=');readln(n);
  for i:=1 to n do
  begin
    write('a[',i,']=');
	readln(a[i]);
  end;

  k:=0; i:=1;
  while i