var n,p,k,i,t:longint;
    f:text;

function nr5(k:longint):longint;
var kont:longint;
begin
  kont:=0;
  while k mod 5=0 do
    begin
      k:=k div 5;
      inc(kont);
    end;
  nr5:=kont;
end;

begin
  assign(f,'fact.in');
  reset(f);
  read(f,p);
  close(f);
  assign(f,'fact.out');
  rewrite(f);
  if p=1 then
    write(f,5)
  else if p<1 then write(f,-1)
  else
    begin
      k:=1; i:=5; t:=1;
      while t<p do
        begin
          inc(k); inc(i,5);
          inc(t,1+nr5(k));
        end;
      write(f,i);
    end;
  close(f);
end.