Const Fi='MAX.INP';
Fo='MAX.OUT';
Var f,g: text;
A: array[1..10000] of longint;
n,i,max: longint;
Begin
Assign(f,Fi); Reset(f);
Assign(g,Fo); Rewrite(g);
Readln(f,n);
For i:=1 to n do Read(f,A[i]);
max:=A[1];
For i:=2 to n do
If A[i]>max then max:=A[i];
Write(g,max);
Close(f);
Close(g);
End.
