var a:array[1..100]of int64;
    b:array[1..100]of int64;
    n:int64;

procedure aras;
var i:byte;k:int64;
begin
 k:=1;
 for i:=1 to 12 do
  begin
   k:=k*5;
   a[i]:=k;
  end;
end;

procedure citire;
var f:text;
begin
 assign(f,'fact.in');
 reset(f);
 readln(f,n);
 close(f);
end;



procedure calc;
var i,j:byte; k,p:int64; f:text;
begin
 k:=5;p:=1;
 while p<n do
  begin
   k:=k+5;
   p:=0;
   for j:=1 to 11 do
    if k div a[j]=0 then break else begin b[j]:=k div a[j]; p:=p+b[j]; end;
  end;
 writeln;
 assign(f,'fact.out');
 rewrite(f);
 if p=n then writeln(f,b[1]*5) else writeln(f,'-1');
 close(f);
end;



begin
 aras;
 calc;
end.