var p,nr,i,x:longint;
    g,h:text;
begin
assign(g,'fact.in');
reset(g);
assign(h,'fact.out');
rewrite(h);
read(g,p);x:=1;
while p>nr do begin
i:=i+1;
x:=x*i;
if x mod 10<>0 then x:=x mod 10;
while x mod 10=0 do begin
x:=x div 10;
nr:=nr+1;
end;
x:=x mod 10;
if nr>p then begin write(h,-1); exit; end;
end;
write(h,i);
close(g);
close(h);
end.