function magia(a, b: int64) : boolean;
var k : int64;
begin
   k := 2;
   while k<=b do begin
      while (a mod k = 0) and (b mod k = 0) do begin
         a := a div k;
         b := b div k;
      end;
      while a mod k = 0 do a := a div k;
      inc(k);
   end;
   magia := (b > 1);
end;

function odpoved(n : int64) : int64;
var vysledok, skusam : int64;
begin
   vysledok := n+1;
   skusam := n;
   while skusam > 1 do begin
      if magia(n,skusam) then vysledok := skusam;
      dec(skusam);
   end;
   odpoved := vysledok-1;
end;

var N, body : int64;

begin
   readln(N);
   body := 0;
   if (N>0) and (N<123456789012345) then body := odpoved(N-1) div 2;
   writeln('Pocet bodov: ', body);
end.