program factorial;
var a,z,x,p:longint;
    f,g:text;
begin
assign(f,'fact.in');reset(f);
assign(g,'fact.out');rewrite(g);
  repeat
inc(z);
a:=5;
    repeat
  if z mod a=0 then inc(x);
  a:=a*5;
    until z mod a<>0;
  until x=p;
  write(g,z);
  close(g);
  end.