var f,g:text;
  k,p,n,m:longint;
begin
  assign(f,'fact.in');
  reset(f);
  readln(f,p);
  close(f);
  assign(g,'fact.out');
  rewrite(g);
  if p=0 then writeln(g,1)
  else
  begin
  k:=0;
  n:=0;
  repeat
    n:=n+5;
    k:=k+1;
    if k mod 5=0 then
    begin
    k:=k-1;
    m:=n;
    while m mod 5=0 do
       begin
       m:=m div 5;
       k:=k+1;
       end;
    end;
  until k=p;
writeln(g,n);
end;
close(g);
end.