program palindrom;
var
  N,m,i,j:integer;
  a,c:array [1..100] of integer;
begin
  assign (input,'palindrom.dat');
  reset (input);
  for i:=1 to n do
  read(n,a[i]);
  assign(output,'palindrom.sol');
  rewrite(output);
  begin
  for i:=1 to n-1 do
  for j:=n to 1 do
  c[j]:=a[i];
  end;
  m:=n-1;
  for j:=1 to m do
  writeln (m,c[j]);
  end.