program p_3655;
var a,t,max_1,max_2 :longint;
Begin
read (a);
max_1:=-2147483646;
max_2:=0;
while a<>0 do
begin
if max_1<a then
begin
max_2:=max_1;
max_1:=a;
end;
if max_1 > a then
if max_2 < a then
begin
if a<>0 then
begin
max_2:=a;
end;
end;
read (a);
end;
if max_2 > max_1 then
t:=max_1;
max_1:=max_2;
max_2:=t;
write (max_2);
end.