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

uses crt;
var n,d,i: integer;
    fi,fo: text;
function nt(n: integer): boolean;
var i: integer;
begin
    nt:=true;
    if n<2 then nt:=false;
    for i:=2 to round(sqrt(n)) do if n mod i = 0 then nt:=false;
end;
begin
    assign(fi,'twinprime.inp'); reset(fi);
    assign(fo,'twinprime.out'); rewrite(fo);
    read(fi,n); d:=0;
    for i:=2 to n-2 do begin
        if nt(i) and nt(i+2) and (i+2-i=2) then begin
            writeln(fo,i,' ',i+2);
            d:=d+1;
        end;
    end;
    write(fo,d);
    close(fi);
    close(fo);
end.