var p,nr,n,i:longint;
    f,g:text;
begin
  assign(f,'fact.in');
  reset(f);
  assign(g,'fact.out');
  rewrite(g);
  readln(f,p);
  nr:=0;
  repeat
    inc(n);
    i:=n;
    if i mod 10=0 then
      inc(nr)
    else
      if i mod 5=0 then
        repeat
          inc(nr);
          i:=i div 5;
        until i mod 5<>0;
  until nr=p;
  writeln(g,n);
  close(f);
  close(g);
end.