program project1;

var

ar:array [1..100] of integer;

ar2:array [1..200] of integer;

n,m,i,j,t:integer;

s:longint;

begin

readln(n);

i:=2;while i0 then begin dec(t); ar[t]:=s;end

end;

write(ar[t]);

if t