var f:text;
a,k,q,p:integer;
begin
assign(f,'fact.in');
reset(f);
read(f,p);
close(f);
k:=5;
q:=0;
repeat
a:=k;
repeat
if a mod 5=0 then
begin
q:=q+1;
a:=a div 5;
end;
until a mod 5<>0;
k:=k+5;
until q>=p;
assign(f,'fact.out');
rewrite(f);
if p=0 then write(f,1)
else
begin
if q=p then write(f,k-5);
if q>p then write(f,-1);
end;
close(f);
end.