var n,s,q:longint;
    p:0..100000000;
    f,g:text;
begin
assign(f,'fact.in');
assign(g,'fact.out');
reset(f);
read(f,p);
rewrite(g);
q:=p;
while q div 5>0 do begin
      s:=s+1;
      q:=q div 5;
end;
writeln(g,s);
if p=0 then write(g,'1')
       else if (p-4-s) mod 6=0 then write(g,'-1')
                 else begin
                      n:=(p-s-3)*5;
                      write(g,n);
                 end;
close(f);
close(g);
end.