var f,f2:text;
    n,fac,a,p,i,j,co,nfac:longint;
function put5(nr:longint):longint;
 var put,i2:longint;
 begin
  put:=1;
  for i2:=1 to nr do put:=put*5;
  put5:=put;
 end;
begin
assign(f,'fact.in');
assign(f2,'fact.out');
reset(f);
readln(f,n);
close(f);
writeln(put5(10));
if n=0 then fac:=0
else
 begin
  fac:=5;
  co:=1;
  while (co<n) do
   begin
    nfac:=fac+5;
    fac:=fac+5;
    p:=0;
    while nfac mod 5=0 do
     begin
      nfac:=nfac div 5;
      p:=p+1;
     end;
    co:=co+p;
   end;
 end;
rewrite(f2);
writeln(f2,fac);
close(f2);
end.