Program Factorial;
type vector=array[1..20000] of integer;
var z:vector;
    f,g:text;
    p,n,nrp,x,y:integer;
Begin
 assign(f,'fact.in');
 reset(f);
 read(f,p);
 close(f);
If p>0 then
 Begin
 x:=5;
 nrp:=1;
 End;
While nrp<p do
 Begin
 x:=x+5;
 y:=x;
 End;
While (y mod 5=0) do
  Begin
  nrp:=nrp+1;
  y:=y div 5;
  End;
While nrp=p do
 n:=nrp;
assign(g,'fact.out');
rewrite(g);
writeln(g,n);
End.