var
	input,output:text;
	n,a,b,zer:longint;
begin
assign(input, 'fact.in'); reset(input);
assign(output, 'fact.out'); rewrite(output);
read(input,n);
close(input);

if n>0 then 
begin
	repeat
	begin
	a:=a+5;
	b:=a;
	
		repeat
		begin
		b:=b div 5;
		zer:=zer+1;
		end;
		until b mod 5>0;
		
	end;
	until zer>=n;
	
	if zer=n then writeln(output,a) else writeln(output,'-1');
	
end else
write(output,1);

close(output);
end.