Program Palindro;
 Label q;
 Var a1,a2:array[1..100]Of Shortint;
     i,n,m,j,c:Integer;
     f1,f2:Text;
Begin
 Assign(f1,'c:\olymp\spravnik\task1\palindro.dat');
 Reset(f1);
 Readln(f1,n);
 For i:=1 To n Do
  Begin
   Read(f1,m);
   a1[i]:=m;
  End;
 For I:=1 To n-1 Do
 a2[i]:=a1[i];

 Close(f1);
 Assign(f2,'c:\olymp\spravnik\task1\palindro.sol');
 Rewrite(f2);
 For i:=1 To n-1 Do
 Write(f2,a2[i]);
 Close(f2)
End.