Program factorial;
   var a:array[1..20]of longint;
       zerouri,m,n,i:longint;
       k:int64;
       f:text;
       b1:boolean;

Function nr_zerouri(p:longint):longint;
var i:byte;
    j:longint;
begin
  i:=1; j:=0;
  while p >= a[i] do begin j:=j+(p 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[m]:=5; b1:=true; k:=5; n:=5;
   while k<10e+8 do
     begin
       k:=k*5;
       inc(m);
       a[m]:=k;
     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.