program factorial;
var f,g:text;
    p,n,i,o,cx,x,k:longint;
begin
assign(f,'fact.in');
assign(g,'fact.out');
reset(f);
rewrite(g);
read(f,p);
if (p=0)then write(g,1) else
   begin
        while (i<=p)do begin
              if (i>=p)then break;
              x:=x+5;
              o:=0;
              cx:=x;
              while (cx mod 5=0)do begin
                    o:=o+1;
                    cx:=cx div 5;
                    end;
              i:=i+o;
              if (i-o<p)and(p<i)then write(g,-1)else
                 if (i-o<=p)and(p=i)then begin
                    k:=1;
                    end else if (i-o=p)then begin
                        k:=1;
                        end;
              if (i=p)then break;
              end;
        if (k=1)then write(g,x);
        end;
close(f);
close(G);
end.