var f,g:text;
    n1,x,c,p,a,b:longint;
    n:real;
    ok:boolean;
function putere(m:real):longint;
var put:longint;
begin
put:=0;
while m>0 do
begin
put:=put + trunc(m) div 5;
m:=trunc(m) div 5;
end;
putere:=put;
end;

begin

assign(f,'in.txt');reset(f);
assign(g,'out.txt');rewrite(g);
readln(f,p);
a:=0;
b:=1999999999;
ok:=false;
if p=0 then write(g,'1');
if p=1 then write(g,'5');
if p>=2 then
while a<b do
 begin
  n:=(a+b)/2;
  x:=putere(n);
   if x=p then
   begin
    n1:=trunc(n);
    n1:=n1 - n1 mod 5;
    writeln(g,n1);
    a:=b+1;
    ok:=true;
   end;
   if x<p then a:=trunc(n)+1;
   if x>p then b:=trunc(n)-1;
 end;
if (p>=2) and (ok=false) then write(g,-1);
close(f);
close(g);
end.