var     p,nr,fac,x:int64;
        n,i,j:int64;
        f:text;
begin
assign(f,'fact.in');
reset(f);
read(f,p);
close(f);
nr:=0;
n:=1;
fac:=1;
while ((nr<p) and (n<1000000)) do
begin
inc(n);
fac:=fac*n;
x:=fac;
while (x mod 10=0) do
begin
  inc(nr);
  x:=x div 10;
end;
fac:=x mod 1000;

end;


assign(f,'fact.out');
rewrite(f);
if nr=p then
write(f,n) else write(f,-1);
close(f);
end.