program Hotrotinhoc;
var d,i,n,max,min: integer;
begin
write(n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=0; min:=32000;
for i:=1 to n do
if a[i]<min then min:=a[i];
for i:=1 to n do
if min=a[i] then inc(d);
if d>1 then
begin
for i:=1 to n do
if max<a[i] then a[i]:=max;
write(max);
end;
readln
end.