program p_3655 var max_1 max_2 longint Begin read max_1 -2147483646 ma

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.