program man2;

{$APPTYPE CONSOLE}

var t:array [1..1000] of integer;
s:real;
max,n,i:integer;
begin
readln (n);
for i:=1 to n do readln (t[i]);
max:=t[1];
for i:=2to n do
if t [i]>max then max :=t[i];
writeln (max);
readln;
readln;
end.