var f,f2:text;
    n,fac,a,p,i,j,min: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:=n*5;
  j:=2;
  min:=0;
  while put5(j)<=fac do
   begin
    min:=min+fac div put5(j);
    if fac mod put5(j)=0 then fac:=fac-5;
    j:=j+1;
   end;
 end;
rewrite(f2);
writeln(f2,fac-min*5);
close(f2);
end.