var f,g:text;
    x,k,l,p,j,s,n,i,b:longint;
   function styo(x:longint):longint;
   begin
   k:=x;
   j:=0;
   while k mod 5=0 do
   begin
   k:=k div 5;
   j:=j+1;
   end;
   s:=0;
   for l:=1 to j do
   begin
   p:=1;
   for i:=1 to l do
   p:=p*5;
   s:=s+(x div p);
   end;
   styo:=s;
   end;
begin
assign(f,'fact.in');
assign(g,'fact.out');
reset(f);
rewrite(g);
 read(f,n);
 b:=1;
while styo(b)<n do
b:=b+1;
write(g,b);
close(f);
close(g);
end.