var n,q,z,f:int64;
begin
  assign(input,'fact.in'); reset(input);
  assign(output,'fact.out'); rewrite(output);
  readln(q); n:=0;z:=0;f:=0;
  if q=0 then write('1')
         else begin
    n:=4*q; n:=n-n mod 5;
  f:=5; while (f<=n) do begin z:=z+(n div f); f:=f*5+0; end;
  repeat
    if z<q then n:=n+5;
    f:=n; while f mod 5=0 do begin z:=z+1; f:=f div 5; end;
  until z>=q;
  if z=q then write(n)
  else write(-1);
  end;
close(input); close(output);
end.