Program factorial;
   var
   a,i,p,n:int64;
   f1,f2:text;
   begin
  assign(f1,'fact.in');
  assign(f2,'fact.out');
  reset(f1);
  rewrite(f2);
   readln(f1,n);
   i:=0;a:=1;p:=1;
   repeat
   i:=1+i;
   a:=a*10;
   until i=n;
   i:=0;
    repeat
    i:=i+1;
    p:=p*i
    until p mod a=0;
   writeln(f2,i);
  close(f1);
  close(f2);
 end.