var
ans,i,x,n:longint;
begin
readln(n);
ans:=-1;
for i:=1 to n do
begin
read(x);
if ans<x then ans:=x;
end;
writeln(ans);
end.
输入：
5
6 5 4 3 2 10
输出：6