var p,i,nr1,j:longint;
    nr:byte;
function f(n:longint):integer;
var i,j:longint;
    nr:integer;
begin
 nr:=0;i:=5;j:=0;
 if 5>n then f:=0 else
                         while i<=n do begin
                                   j:=i;
                                   while j mod 5=0 do
                                               begin
                                                    inc(nr);
                                                    j:=j div 5;
                                                end;
                                   i:=i+5;
                                   end;
f:=nr;
end;
function binar(l,r:integer;p:longint):integer;
var m:integer;
begin
if l>r then binar:=-1
      else
          begin
              m:=(l+r) div 2;
              if f(m)=p then binar:=m
              else if f(m)>p then binar:=binar(l,m-1,p)
                             else binar:=binar(m+1,r,p);
end;
end;
begin
assign(input,'fact.in');reset(input);read(p);
assign(output,'fact.out');rewrite(output);
write(binar(1,1000,p));
end.