var p,m,s,n:longint;
    f,g:text;
begin
assign(f,'fact.in');
assign(g,'fact.out');
reset(f);
read(f,p);
n:=0;
while p>=1 do begin
      n:=n+5;
      m:=n;
      while m div 5>0 do begin
            s:=s+1;
            m:=m div 5;
      end;
      p:=p-s;
      s:=0;
end;
rewrite(g);
if p=0 then write(g,n)
       else write(g,'1');
close(f);
close(g);
end.