Program nume;
var f,g:text;
p,s,y:longint;
c:integer;
function putere (t:integer):longint;
var m:longint;
begin
m:=1;
while (t>0) do
begin
m:=m*5;
t:=t-1;
end;
putere:=m;
end;
begin
assign (f,'fact.in');
reset (f);
assign (g,'fact.out');
rewrite (g);
read (f,p);
if (p=0) then
write (g,1)
else
begin
y:=trunc((p+11)*4/(5*5*5*5*5*5*5*5*5*5*5-1));
repeat
s:=y;
for c:=1 to 11 do
s:=s+trunc(y/putere(c));
y:=y+1;
until (s>=p);
write (g,5*(y-1));
end;
close (f);
close (g);
end.