var n,p,zero:longint;
begin
assign(input,'fact.in');reset(input);read(input,p);close(input);
if p=0 then begin assign(output,'fact.out');rewrite(output);write(output,0);close(output);halt;end;
n:=0;zero:=0;
while p>=61035156 do begin zero:=zero+61035156;p:=p-61035156;n:=n+244140625;end;
while p>=12207031 do begin zero:=zero+12207031;p:=p-12207031;n:=n+48828125;end;
while p>=2441406 do begin zero:=zero+2441406;p:=p-2441406;n:=n+9765625;end;
while p>=488281 do begin zero:=zero+488281;p:=p-488281;n:=n+1953125;end;
while p>=97656 do begin zero:=zero+97656;p:=p-97656;n:=n+390625;end;
while p>=19531 do begin zero:=zero+19531;p:=p-19531;n:=n+78125;end;
while p>=3906 do begin zero:=zero+3906;p:=p-3906;n:=n+15625;end;
while p>=781 do begin zero:=zero+781;p:=p-781;n:=n+3125;end;
while p>=156 do begin zero:=zero+156;p:=p-156;n:=n+625;end;
while p>=31 do begin zero:=zero+31;p:=p-31;n:=n+125;end;
while p>=6 do begin zero:=zero+6;p:=p-6;n:=n+25;end;
while p>=1 do begin zero:=zero+1;p:=p-1;n:=n+5;end;
assign(output,'fact.out');rewrite(output);write(output,0);close(output);
end.