Program factorial;
   var a,b:array[1..13]of longint;
       zerouri,m:longint;
       k:int64;
       f:text;
       b1:boolean;
Function nr_zerouri(n:longint):longint;
var i:byte;
    j:longint;
begin
  i:=1; j:=0;
  while n >= a[i] do begin j:=j+(n div a[i]); inc(i); end;
  nr_zerouri:=j;
end;

Begin
   assign(f,'fact.in'); reset(f); readln(f,zerouri); close(f);
   assign(f,'fact.out'); rewrite(f);
   m:=1; a[1]:=5; b1:=true; k:=5;
   while k<100000000 do
     begin
       k:=k*5;
       inc(m);
       a[m]:=k;
       b[m]:=a[m-1]+b[m-1];
     end;
     a[m+1]:=13;
   if zerouri=0 then writeln(f,'1')
     else
       begin
         k:=zerouri*4;
         while b1 do
           if nr_zerouri(k)<zerouri then inc(k)
             else
              if nr_zerouri(k)=zerouri then begin writeln(f,k); b1:=false; end
                else begin writeln(f,-1); b1:=false; end;
       end;
    close(f);
end.