var m,k,p,u,pp,s,x:longint;
begin
assign(input,'factorial.in');reset(input);
assign(output,'factorial.out');rewrite(output);
readln(pp);
if pp=0 then writeln(1) else
begin
p:=1;
u:=1000000000;
while (p<=u) do
begin
m:=(u+p)div 2;
x:=m;k:=0;
while x>=5 do
begin
x:=x div 5;
k:=k+x;
end;
if k=pp then p:=u+1 else
if k<pp then p:=m+1 else u:=m+1;
end;
if k=pp then
writeln(m-m mod 5) else writeln(-1);
end;
close(input);close(output);
end.