program factori;
var f,g:text;
    p:integer;
	n:word;
	nfact,zecelap:word;
	ok:boolean;

		function factorial (n:word):integer;
			var i:integer;
			    p:integer;
			begin
				p:=1;
				for i:=1 to n do
					p:=p*i;
				factorial:=p;
			end;
		function putere(p:integer):word;
		var i,r:word;
		begin
		r:=1;
		for i:=1 to p do
		r:=r*10;
		putere:=r;
		end;


	BEGIN

	assign(f,'fact.in');
	assign(g,'fact.out');
	reset(f);
	rewrite(g);
	read(f, p);
	n:=1;ok:=true;
			if p>0 then
	repeat
		nfact:=factorial(n);
		zecelap:=putere(p);

			if (nfact mod zecelap=0) then if( (nfact mod zecelap) mod 10 = 0) then ok:=true
															  else ok:=false;
			if ok then write(g,n);
		n:=n+1;
	until ok=true

			else write (g, -1);

close(f);
close(g);
end.