program deofbjv;
var a,b,c, i : integer;
begin
 read (a);
 b:=0;
 for i := 1 to a do begin
   read (c);
   if (c mod 5 = 0 )and (c>b) then
     b:=c
   end;
   write (b)
 end.