type vector=array [1..13] of longint;
const v:vector= (5,25,125,625,3125,15625,78125,390625,1953125,9765625,48828125,244140625,1220703125);
      p:vector =(1,6,31,156,781,3906,19531,97656,488281,244146,12207031,61035156,305175781);
var n,pz,i:longint;
begin
assign(input,'fact.in');
reset(input);
read(input,pz);
Close(input);
n:=0;
if pz=0 then
 n:=1 else
if pz=11 then
 n:=-1 else
while pz<>0 do begin
i:=1;
 while (pz>=p[i+1]) and (p[i+1]<>0) do
  inc(i);
n:=n+v[i];
pz:=pz-p[i];
end;
assign(output,'fact.out');
rewrite(output);
write(output,n);
Close(output);
end.