type
   stringarray = array[1 .. 8] of string ;

   function alphabetise (a : stringarray) : string ;

   var
      i, min   : integer ;
   begin
      min := 1 ;
      for i := 1 to 8 do
         if a[i] < a[min] then
            min := i ;
      alphabetise := a[min] ;
   end ;

var
   b : stringarray ;
   i : integer ;
begin
   for i := 1 to 8 do
      readln (b[i]) ;
   writeln ;
   writeln (alphabetise(b)) ;
   readln
end.