program p21;
var f,g:text;
    p,x,p5,i:longint;
begin
assign(f,'fact.in');reset(f);
assign(g,'fact.out');rewrite(g);
readln(f,p);
i:=0;
p5:=0;
while p5<p do
      begin

      i:=i+5;
      x:=i;
      while x mod 5=0 do
      begin
      x:=x div 5;
      p5:=p5+1;
      end;
      if p5=p then write(g,i);
      end;
close(g);
end.