var n,p:longint;
    ok:boolean;
    f:text;
function catizero(x:longint):longint;
var k:longint;
begin
     k:=0;
     while x mod 5 = 0 do
           begin
                Inc(k); x:=x div 5;
           end;
    catizero:=k;
end;

function nfact(x:longint):longint;
var k,suma:longint;
begin
     k:=5; suma:=0;
     while k<=x do
           begin
           suma:=suma+catizero(k);
           Inc(k,5);
           end;
     nfact:=suma;
end;

begin
     assign(f,'fact.in'); reset(f);
     ok:=false;
     read(f,p); close(f);
     Assign(f,'fact.out'); rewrite(f);
     n:=4*p;
     if p=0 then write(f,1)
     else
     while ok=false do
           begin
                if nfact(n)=p then begin write(f,n); ok:=true;  end;
                Inc(n);
           end;
     close(f);
end.