var f : text;
   p,n,k,i,x : longint;
   sem : byte;
begin
     assign(f,'fact.in'); reset(f);
     readln(f,p);
     close(f);
     k:=p+1-(p div 5);
     sem:=1;
     while sem=1 do
           begin
                i:=k;
                x:=k;
                while x>=5 do
                      begin
                           x:=x div 5;
                           i:=i+x;
                      end;
                if i>p then k:=k-1
                else sem:=0;
           end;
     if i=p then n:=k*5
     else n:=-1;
     if p=0 then n:=1;
     assign(f,'fact.out'); rewrite(f);
     write(f,n);
     close(f);
end.