uses crt;
var n:longint;f:text;
function NT(a:longint):boolean;
var dem,i:longint;
        begin
         dem:=0;
         for i:=1 to a do if(a mod i=0)then inc(dem);
         NT:=dem=2;
        end;
procedure doc;
        begin
         assign(f,'twinprime.inp');
         reset(f);
         readln(f,n);
         close(f);
        end;
procedure ghi;
var i,dem:longint;
        begin
         assign(f,'twinprime.out');
         rewrite(f);
         dem:=0;
         i:=3;
         while (i+2)<=n do
                begin
                 if(i+2<n)then
                        begin
                         if(NT(i)and(NT(i+2)))then begin writeln(f,i,' ',i+2); inc(dem); inc(i,2); end else inc(i);
                        end else break;
                end;
         write(f,dem);
         close(f);
        end;
begin
 clrscr;
  doc;
  ghi;
 readln;
end.

var n,k,d:longint;
    p:array[0..100000] of longint;
procedure sangnt;
var i,j:longint;
begin
          p[0]:=1;
          p[1]:=1;
          for i:=2 to trunc(sqrt(n)) do
          begin
                if p[i]=0 then
                begin
                        j:=i*i;
                        while j<=n do
                        begin
                                p[j]:=1;
                                j:=j+i;
                        end;
                end;
          end;
end;
procedure giai;
var i:longint;
begin
        d:=0;
        for i:=2 to n-2 do
        begin
                if ((p[i]=0) and (p[i+2]=0)) then
                begin
                        writeln(i,' ',i+2);
                        inc(d);
                end;
        end;
        writeln(d);
end;
begin
        assign(input,'twinsnumber.inp'); reset(input);
        assign(output,'twinsnumber.out'); rewrite(output);
        read(n);
        sangnt;
        giai;
end.

//ProDev

//Thuật toán: sàng nguyên tố thôi:)