var n,i,p,nr,nr2,nr5:integer;
    f,g:text;
function nr_zero(x:integer):integer;
var y:integer;
begin
nr2:=0;nr5:=0; nr_zero:=0;
for i:=1 to x do
    begin
    y:=i;
    if y mod 2=0 then
                 while y mod 2 =0 do
                       begin
                       y:=y div 2;
                       inc(nr2);
                       end;
    end;
for i:=1 to x do
    begin
    y:=i;
    if y mod 5=0 then
                 while y mod 5=0 do
                       begin
                       y:=y div 5;
                       inc(nr5);
                       end;
    end;
    if (nr2>nr5)and(nr2<>0)and(nr5<>0) then nr:=nr5;
    if (nr2<nr5)and(nr2<>0)and(nr5<>0) then nr:=nr2;
    nr_zero:=nr;
end;
begin
assign(f,'fact.in');reset(f);
assign(g,'fact.out');rewrite(g);
readln(f,p);
n:=0;
while p<>nr_zero(n) do
      inc(n);
write(g,n);
close(f);close(g);
end.