program yezi;
var n,t,k:longint;
begin
     k:=0;
     n:=1;
     while k<>5 do
           begin
                inc(n);
                k:=0;
                begin
                     t:=n;
                     while (t-1) mod 5*4=0 do
                           begin
                                t:=(t-1)div 5*4;
                                inc(k);
                                if k=5 then break;
                           end;

                end;
           end;
     writeln(n);
end.