var f,g:text;
    x,k,l,p,j,s,n,i,b,d,q:longint;

   function putere(x:longint):longint;
   begin
   l:=1;
   d:=0;
   for i:=1 to 13 do
   begin
   l:=l*5;
   d:=d+(x div l);
   end;
   putere:=d;
   end;

begin
assign(f,'fact.in');
assign(g,'fact.out');
reset(f);
rewrite(g);
 read(f,p);
if p>200 then n:=(p*125 div 31) -500
else n:=0;

while putere(n)<p do
n:=n+1;

if putere(n)=p then write(g,n)
else write(g,'-1');
close(f);
close(g);
end.