var
n,i:integer;
a:array of integer;
function FindMax(c:integer):integer;
var w:integer;
begin
if c>1 then
 begin
  w:=FindMax(c-1);
  if a[c]<w then FindMax:=w
  else FindMax:=a[c]
 end
else FindMax:=a[1]
end;
begin
readln(n);
setlength(a,n+1);
for i:=1 to n do
readln(a[i]);
writeln(FindMax(n));
end.