{suma pan la n! si se da un nr p.gasesc cel mai mic nr cu p cifre
de la 0 la sfarsit}
program factorial;
var f:text;
    p,produs,n,nr,c:int64;
    i:longint;
begin
  assign(f,'fact.in'); reset(f); readln(p); close (f);
   n:=1;
   produs:=1;
   for i:=1 to 100000000 do
    produs:=produs*i;
    while p<>0 do begin
     c:=produs mod 10;
     produs:=produs div 10;
     nr:=nr+1;
    end;
    assign(f,'fact.out');
    rewrite(f);
    if p=nr then write(i);
    close(f);
    end.