var a,max: real;
n,i: integer;
begin
max:=0;
readln(n);
for i:=1 to n do begin
readln(a);
if a>max then max:=a;
end;
writeln(max);
end.
var a,max: real;
n,i: integer;
begin
max:=0;
readln(n);
for i:=1 to n do begin
readln(a);
if a>max then max:=a;
end;
writeln(max);
end.