var p,n,x,nr:longint;
    gata:boolean;
    f,g:text;
begin
  assign(f,'fact.in');
  reset(f);
  assign(g,'fact.out');
  rewrite(g);
  readln(f,p);
  if p=0 then writeln(g,'1')
  else
    if p=1 then writeln(g,'5')
  else
  begin
    x:=0;
    nr:=1;
    gata:=false;
    while nr<=p*5 do
    begin
      if nr=p*5 then
      begin
        gata:=true;
        break;
      end;
      inc(x);
      nr:=nr*5;
    end;
  end;
  if gata=true then
    writeln(g,'-1')
  else
  begin
    n:=p*5-((x-2)*5);
    writeln(g,n);
  end;
  close(f);
  close(g);
end.