var  f,g:text;
     k,i,n1,p:longint;
begin
assign(f,'fact.in');reset(f);
assign(g,'fact.out');rewrite(g);
read(f,p);
i:=0;k:=0;
repeat
inc(i);n1:=i;
repeat
if n1 mod 5=0 then
                begin
                inc(k);
                n1:=n1 div 5;
                end;
until (n1 mod 5<>0) or (k=p);
until k=p;
writeln(g,i);
close(f);
close(g);
end.