uses crt;
var f,g:text;
    n,p:integer;
function five(n:integer):integer;
var i:integer;
 begin
 i:=0;
 if n mod 5=0 then
   begin
   repeat
   n:=n div 5;
   inc(i);
   until n mod 5<>0;
   end;
 five:=i;
 end;

procedure factorial(p:integer;var n:integer);
var nrcinci,i:integer;
 begin
 if p<0 then n:=-1
        else
          begin
          n:=0;i:=1;nrcinci:=0;
          repeat
          inc(n);
          nrcinci:=five(n)+nrcinci;
          until (nrcinci=p)or(nrcinci>p);
          if nrcinci>p then n:=-1;
          end;
 end;

begin
clrscr;
assign(f,'fact.in');
reset(f);
read(f,p);
close(f);
factorial(p,n);
assign(g,'fact.out');
rewrite(g);
write(g,n);
close(g);
end.