Uses crt;
Const
N = 5;
var
a:array[1..N] of integer;
i,j,k:integer;
begin
      for i:=1 to N do readln(a[i]);

      k:= 0;
      for i:=1 to N do
      begin
          if(a[i] div (8*8) <> 0) and
            (a[i] mod 8 = 5) and (a[i] > k) then
          begin
                k := a[i];
          end;
      end;

      writeln(k);



      readkey;
end.