program factorial;
var pr,p,nr,n:longint;
    f,g:text;
    ok:boolean;
    begin
assign(f,'factorial.in');reset(f);
assign(g,'factorial.out');rewrite(g);
readln(f,p);
if p=0 then writeln(g,'1')
else
begin
pr:=1;
nr:=0;
n:=1; OK:=true;
while ok  do begin
               pr:=pr*n;
               if pr mod 10=0 then begin
                                  nr:=nr+1;
                                  pr:=(pr div 10) mod 10;
                                  end
               else pr:=pr mod 10;
               if nr=p then begin writeln(g,n) ; ok:=false; end
               else
               n:=n+1;
               end;
 if nr<>p then
writeln(g,'-1');
end;
close(f);close(g);
end.