var
	input,output:text;
	n,a,b,zer:longint;

function zero(p,q:longint):longint;
begin
if p mod q=0 then
	begin
	zer:=zer+1;
	zero:=zero(p,q*5);
	end;
end;	
	
begin
assign(input, 'fact.in'); reset(input);
assign(output, 'fact.out'); rewrite(output);
read(input,n);
close(input);

if n=0 then 
	write(output,1) else
begin

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


close(output);
end.