program fact;
var f:text;
    p,n,i,k,v:longint;

function szamol(x:longint):longint;
var i,e,h:longint;
begin
     e:=0;
     h:=5;
     while(h<=x) do
     begin
          e:=e+(x div h);
          h:=h*5;
     end;
     szamol:=e;
end;

begin
     assign(f,'fact.in');
     reset(f);
     readln(f,p);
     close(f);

     k:=1;
     v:=500000000;
     i:=(k+v) div 2;
     n:=0;
     while ((k+1 < v) and (n<>p))  do
     begin
          n:=szamol(i);
          if(n>p) then
          begin
               v:=i-1;
               i:=(k+v) div 2;
          end else
          if(n<p) then
          begin
               k:=i+1;
               i:=(k+v) div 2;
          end;
     end;

     while (i mod 5 > 0) do i:=i-1;
     n:=szamol(i);

     if i=0 then i:=1;

     assign(f,'fact.out');
     rewrite(f);
     if(p=0) then writeln(f,1)
     else if(n=p) then writeln(f,i)
                  else writeln(f,-1);
     close(f);
end.