Program newmasiv;
  Var R: array[1..100] of integer;
  T: array[1..100] of integer;
  U: array[1..100] of integer;
  a,n, i, k, kol: integer;
Begin
  a:=0;
  k:=0;
  write ('n=');
  readln (n);
  For i:=1 to n do
    begin
    if i mod 2=0 then
      begin
      T[k] = R[i];
      k:=k+1;
    end;
    if i mod 2<>0 then
     begin
      U[a] = R[i];
      a:=a+1;
    end;
  End;
    For i:=1 to k do
    begin
    writeln('T[',i,']=',T[i]);
    end;
End.