var p,k,k2,k5,c:longint;
    f,g:text;
begin
assign(f,'fact.in');reset(f);
assign(g,'fact.out');rewrite(g);
read(f,p);
if p=0 then begin writeln(g,1);close(f);close(g); exit; end;
while p<>0 do begin
inc(c,5);k:=c;
while(k mod 5=0)and(k>0)do begin inc(k5);k:=k div 5; end;
while k5>0 do begin dec(k5);dec(p); end;
if p<0 then begin writeln(g,-1);close(f);close(g); exit; end;
end;
writeln(g,c);
close(f);close(g);
end.